DCODETX.S 



4/11/95 
with stop 

I !!!!!! ! note : for 28604 with external EEPROM & RS232 !!!!!!!!!!! 



EQUATE STATEMENTS 



XRGRPF 

XRGRPO 

S1B39 

S2B39 

S3B39 

SI 

S2 

S3 

smr 

csh 

csi 

clockh 
clockl 
doh 
dol 

csport 

dioport 

clkport 
• * * X * * ★ ★ 



, equ 
. equ 
. equ 
.equ 
.equ 
. equ 
. equ 
.equ 
. equ 
. equ 
.equ 
.equ 
. equ 
. equ 
. equ 
. equ 
. equ 



.equ 

CONTROL REG AND 



OfOH 

OOH 

00000000b 
00000001b 
00000010b 
00000100b 
00001000b 
00000010b 
ObH 

00000100b 
11111011b 
00000010b 
11111101b 
00000001b 
11111110b 
P2 
P2 
P2 

INITIAL VALUES 
*************** 



(WDT,SMR,PCON) 
(ports) 



STACKTOP 

STACKEND 

GPR_INIT 

RP_INIT 

IMR_INIT 

IPR_INIT 

PC1M_INIT 

P2M_INIT 

P3M_INIT 

PRE1_INIT 

T1_INIT 

TMR_INIT 

TMR_START 

P0_INIT 

P2_INIT 

P3_INIT 

SMR_INIT 
r 



. equ 


07FH 




. equ 


070H 




.EQU 


OOH 




.EQU 


OOH 




.EQU 


OOOOOOOOB 




.EQU 


OOOOllllB 




.EQU 


OCOOCIOOB 




.EQU 


lOOlOOOOB 




.EQU 


OOOOOOOIB 




.EQU 


OOOOIOIIB 




.EQU 


250D 




.EQU 


OOOOOOOOB 




.EQU 


OOOOllOOB 




.EQU 


OOOOOOOOB 




.EQU 


OOOOOOOOB 




.EQU 


OOOOOOOOB 




.EQU 


lllllOlOB 





expanded reg group F 
expanded reg group 0 
B39 value for SI 
B39 value for 32 
B39 value for S3 
P32 SI mask for 286C04 
P33 S2 mask for Z86C04 
P31 S3 mask for Z86C04 
stop mode recovery 
P22 chip sel hi for 93c46 
P22 chip sel lo for 93c46 
P21 elk hi for 93c46 
P21 elk lo for 93c46 
P20 data out hi for 93c46 
P20 data out lo for 93c46 
chip sel port 93c46 
data i/o port 93c46 
elk port 93c46 

Start of the stack 
end of the stack 
init general purpose reg to OOH 
inxt register pointer to 00 
init intr mask reg (di) 
init intr priority reg 
init port O&l mode reg 
init port2 mode 
init port3 mode 
init prescalar 1 reg 
init counter/timer 1 reg /200 
init timer mode reg 
start timer 
init portO 
init port2 
init port3 

init SMR reg bitl hi OTP Lo Emulate 



PCON INIT 



.EQU 



lllllllOB 



init Port control reg 



PREDEFINED CONTROL REG 



SPL 
GPR 
;RP 

; FLAGS 



.equ 255 

.equ 254 

.equ 253 

.equ 252 



; stack pointer 

; general purpose 

; register pointer 

; cpu flags 



A-l 
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; IMR 


• 


251 


interrupt mask reg 


;IRQ 


. equ 


250 




; IPR 


.equ 


249 


interrupt priority 


;P01M 


. equ 


248- 


port 0 mode 


;P3M 


. equ 


247 


port 3 mode 


;P2M 


.equ 


246 


port 2 mode 


;PRE1 


. equ 


P 4 '=1 




;T1 


.equ 


242 


timer 1 


;TMR 


.equ 


241 


timer mode 


;P3 


. equ 


3 


port 3 


;P2 


. equ 


2 


port 2 


; *******NON-P REDEFINED 


CONTROL REGISTERS 


USED WITH REGISTER POINTER****** 


WDTMR 


.EQU 


rl5 


watch dog timer RP=FO 


SMR 


.EQU 


rll 


stop mode recovery RP=FO 


PCON 


.EQU 


rO 


port control RP==FO 


1 INTERRUPTS 


1 

flMER_ 


_ON_IMR . equ 


00100000b 


turn on int for timer 1 



- 

^xg GENERAL 


PURPOSE 


REGISTERS 






w 






























GENERAL PURPOSE REGISTER GROUP 00H-09H 


(OOh-ClH 


reserved) 


;4EGGRP0 0 


. equ 


OOH 








. equ 


REGGRPOO 


• reserved 




. equ 


REGGRPOO+1 


■ reserved 




. equ 


REGGRPOO +2 


• P2 






. equ 


REGGRPOO +3 


' P3 




^^S3XTMP 


.equ 


REGGRPOO+4 


trinary 


add to itself # 


^^=3*3XTMP1 


. equ 


REGGRPOO+5 






X3XTMP2 


.equ 


REGGRPOO+6 






X3XTMP3 


. equ 


REGGRPOO+7 






TRCXX 


.equ 


REGGRPOO+8 


• trinary 


number pointer 


TCNTR 


. equ 


REGGRPOO+9 


• trinary 


counter 


X3XABCD 


, equ 


REGGRPOO+IO 


• trinary 


number 


X3XABCD1 


, equ 


REGGRPOO+11 


trinary 


number 


X3XABCD2 


. equ 


REGGRPOO+12 


• trinary 


number 


X3XABCD3 


.equ 


REGGRPOO+13 


' trinary 


number 


LPCNTR 


.equ 


REGGRPOO +14 


• Loop counter 


B39 


. equ 


REGGRP 00+15 


• button 1 


,2,3 




.equ 


rO 


■ reserved 




.equ 


rl 


• reserved 




. equ 


r2 


• P2 






.equ 


r3 


• P3 




x3xtmp 


.equ 


r4 


trinary 


add to itself # 


x3xtmpl 


.equ 


r5 






x3xtmp2 


. equ 


r6 






x3xtmp3 


.equ 


r7 






trcxx 


.equ 


r8 ~ . 


' trinary 


number ptr 


tcntr 


.equ 


r9 


trinary 


counter 


x3xabcd 


. equ 


rlO 


• trinary 


number 
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x3xabcdl 


. equ 


rll 


x3xabcci2 


. equ 


rl2 


xSxabcdS 


. equ 


rl3 


Ipcntr 


, equ 


rl4 


b39 


.equ 


rl5 




; GENERAL PURPOSE REGISTER GROUP 10 




REGGRPIO 


. equ 


1 OH 


RClOB 


• ^>^u 




RCllB 






RC12B 






RC13B 


, equ 


KiLooKir 1 U 


RC20B 








. equ 


Kh-bCjKP i U + O 


RC22B 


• equ 


ppr;r:;DDi C\a-C^ 
r\sLi\j\j r\ir J. U D 


RC23B 


equ 


■ppf^nRPI 0-1-7 


RC30B 






RC31B . 


. equ 


pprT'DDi nj-Q 

KlLL:j\jKir 1 U + ^ 


1JrC32B 


. equ 


r\i_jOvjr\ir J. \j\±. \j 


RC33B 


. equ 


Kc^ovjKr Jl U~r 1 1 


illFRAMEPTR 


equ 




'Ocodeptr 


. equ 




33ITPTR 


.equ 


r\cj\j\jt\sr 1 U + 1 f± 


pRCPTR 


.equ 


KijlooKr 1 U-r 1 0 


=:^lrclOb 


.equ 


y n 
ru 


xlrcllb 


. equ 


r 1 


.. rcl2b 


. equ 


I. ^ 


■\rcl3b 


.equ 




;^;'rc2 0b 


. equ 


r 4 


3rc21b 


.equ 


X. -J 


..!=rc22b 


, equ 


I. V 


:. ;rc23b 


. equ 


X / 


..!frc30b 


. equ 


r8 


^.Jrc31b 


. equ 


r9 


-i=rc32b 


. equ 


>- 1 Pi 
r J. U 


rc33b 


. equ 


1. L X 


f rameptr 


.equ 


ri z 


codeptr 


.equ 


J. i. o 


bitptr 


.equ 


rl4 


rcptr 


.equ 


rl5 




RS-232 Assigi 


rs232do 


.equ 


r5 


rs232di 


,equ 


r6 


rscommand 


. equ 


r7 


rs232docount 


.equ 


r8 


rs232dicount 


.equ 


r9 


rs232odelay 


.equ 


rlO 


rs232idelay 


.equ 


rll 


rs232ccount 


.equ 


rl2 


rs232page 


. equ 


rl3 


rsccount 


.equ 


rl4 


rsstart 


. equ 


rl5 


RS232DO 


.EQU 


REGGRPIO +5 


RS232DI 


.EQU 


REGGRPlO+6 


RSCOMMAND 


.EQU 


REGGRPlO+7 


RS2 32DOCaUNT 


.EQU 


REGGRPlO+8 


RS232DICOUNT 


.EQU 


REGGRPlO+9 



; trinary number 

; trinary number 

; trinary number 

; Loop counter 

; button 1,2,3 

HIFH 



Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
frame 
code 
bit p 
Rolli 



Code 


1 


LSB 


Code 


1 




Code 


1 




Code 


1 


MSB 


Code 


2 


LSB 


Code 


2 




Code 


2 




Code 


2 


MSB 


Code 


3 


LSB 


Code 


3 




Code 


3 




Code 


3 


MSB 



pointer 
pointer 
ointer 

ng Code Reg Pointer 



Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 
Roll Code 



LSB 



MSB 
LSB 



MSB 
LSB 



MSB 



frame pointer 
code pointer 
bit pointer 

Rolling Code Reg Pointer 
share REGGRPIO**********^ 
for RS-232 only 
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RS2 320DELAY 


.EQU 


REGGRP 10+10 








RS232IDELAY 


.EQU 


REGGRPlO+11 








RS232CCOUNT 


.EQU 


REGGRPlO+12 








RS2 32PAGE 


.EQU 


REGGRP 10+ 13 








RSCCOUNT 


.EQU 


REGGRP 10+1 4 








RSSTART 


.EQU 


REGGRP 10+15 








RS2320S 


.EQU 


OOOOOIOOB 


;RS2 32 


output 


bit set 


RS2320C 


.EQU 


lllllOllB 


;RS232 


output 


bit clear 


RS2320P 


-EQU 


PO 


;RS232 


output 


port 


RS232IP 


.EQU 


P2 


;RS232 


input 


port 


RS232IM 


.EQU 


OOOIOOOOB 


;RS232 


input 


mask 



; GENERAL 



PURPOSE REGISTER GROUP 2 0H-2FH 



r ****** : 





equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



20H 

REGGRP 2 0 
REGGRP 2 0+1 
REGGRP 2 0+2 
REGGRP 2 0+3 
REGGRP2 0+4 
REGGRP 2 0+5 
REGGRP2 0+6 
REGGRP2 0+7 
REGGRP2 0+8 
REGGRP 2 0+9 
REGGRP 2 0+10 
REGGRP2 0+11 
REGGRP2 0+12 
REGGRP20+13 
REGGRP2 0+14 
REGGRP2 0+15 

rO 

rl 

r2 

r3 

r4 

r5 

r6 

r7 

r8 

r9 

rlO 

rll 

rl2 

rl3 

rl4 

rl5 



; Trinary 
; Trinary 
; Trinary 
; Trinary 
; Trinary 
; Trinary 
; Trinary 
; Trinary 
; Trinary 
; Trinary 
; sync pu 
; Trinary 
; Trinary 
; Trinary 
; Trinary 
;Trinary 



Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 
Roll 

ise f 
Roll 
Roll 
Roll 
Roll 
Roll 



;Trinary Roll 

; Trinary Roll 

/Trinary Roll 

;Trinary Roll 

; Trinary Roll 

; Trinary Roll 

; Trinary Roll 

; Trinary Roll 

; Trinary Roll 

; Trinary Roll 
;sync pulse f 

/Trinary Roll 

/Trinary Roll 

/Trinary Roll 

/Trinary Roll 

/Trinary Roll 



Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
ramel 
Code 
Code 
Code 
Code 
Code 

Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
Code 
ramel 
Code 
Code 
Code 
Code 
Code 



REG'S LSB 

REG* s 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 
REG'S 
REG' s 
REG'S 
REG'S 

REG'S LSB 

REG'S 

REG'S 

REG' s 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 

REG'S 
REG'S 
REG'S 
REG'S 
REG'S 



; GENERAL PURPOSE REGISTER GROUP 30H-39H (3Ah-3FH reserved for Stack) 



REGGRP 30 


.equ 


30H 


; 








TRC15 


.equ 


REGGRP 3 0 


; 


Trinary Roll Code 


REG 


s 


TRC16 


.equ 


REGGRP 3 0+1 


/ 


Trinary Roll Code 


REG^ 


s 


TRC17 


.equ 


REGGRP 3 0+2 


; 


Trinary Roll Code 


REG 


S 


TRC18 


. equ 


REGGRP 3 0+3 


; 


Trinary Roll Code 


REG 


s 


TRC19 


.equ 


REGGRP 3 0+4 


/ 


sync pulse fraineO 






SYNCO 


.equ 


REGGRP30+5 


; 


sync pulse frameO 
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RCMIRO 


.equ 


REGGRP30+6 


RC mirrored less LSB 


RCMXRl 


. equ 


REGGRP3 0+7 


RC mirrored less 


RCMIR2 


- 


REGGRP3 0+8 


RC mirrored less 


RCMIR3 


. equ 


REGGRP30+9 


RC mirrored less MSB 


trclS 


.equ 


rO 


Trinary Roll Code REG's 


trcl6 


.equ 


rl 


' Trinary Roll Code REG's 


trcl7 


.equ 


r2 


Trinary Roll Code REG's 


trclS 


.equ 


r3 


' Trinary Roll Code REG's MSB 


trcl9 


.equ 


r4 


sync pulse frameO 


syncO 


• .equ 


r5 


' spare 


rcmirO 


,equ 


r6 


RC mirrored less LSB 


rcmirl 


. equ 


rl 


' RC mirrored less 


rcmir2 


. equ 


r8 


• RC mirrored less 


rcmirS 


.equ 


r9 


RC mirrored less MSB 


- 




; GENERAL 


PURPOSE REGISTER GROUP 4 0H-4FH 






REGGRP4 0 


.equ 


40H 




XMTREG 


• 


REGGRP4 0 




LPCTR 


,equ 


REGGRP4 0-rl 




XROO 


. equ 


REGGRP4 0+2 




XxMTREGl 


. equ 


REGGRP4 0+3 




ACODEPTR 


.equ 


REGGRP40+4 




MTFLAG 


. equ 


REGGRP4 0+5 




DIVBYIQ 


.equ 


REGGRP4 0-r6 




TRCPTR 


. equ 


REGGRP4 0+7 




TEMPH 


. equ 


REGGRP4 0+8 


' ee 


TEMPL 


.equ 


REGGRP4 0+9 


-ee 


TEMP 


.equ 


REGGRP4 0+10 


-ee 


MTEMPK 


.equ 


REGGRP40-^11 


-memory tern eeprom 


MTEMPL 


. equ 


REGGRP4 0+12 


•memory tern eeprom 


MTEMP 


. equ 


REGGRP4 0+13 


-memory tern eerom 


SERIAL 


.equ 


REGGRP4 0+14 


•serial data to/from eeprom 


ADDRESS 


. equ 


REGGRP4 0+15 


•eeprom address 


xmt reg 


,equ 


rO 




ipctr 


.equ 


rl 




xrOO 


. equ 


r2 




xiTitregl 


. equ 


r3 




acodeptr 


.equ 


r4 




mtf lag 


. equ 


r5 




divbylO 


.equ 


r6 




trcptr 


.equ 


r7 




temph 


- 


r8 




tempi 


■ 


r9 




temp 


.equ 


riO 




mtemph 


,equ 


rll 




mtempl 


. equ 


rl2 




mtemp 


.equ 


rl3 




serial 


.equ 


rl4 




address 


. equ 


rl5 





GENERAL PURPOSE REGISTER GROUP 50H-5FH 

REGGRP50 .equ 5 OH 

ACODEOBM^ .equ REGGRP50 

ACODEIBM ,equ REGGRP50+1 
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REGGRP50+2 




• 


REGGRP50+3 


AC0DE4BM 


.equ 


REGGRP50+4 


AC0DE5BM 


. equ 


REGGRP50+5 




.equ 


REGGRP50+6 




.equ 


REGGRP50+7 


ACUDEoBM 


. equ 


REGGRP50+8 




- equ 


REGGRP50+9 




. equ 


REGGRP50+10 


AL-UUb ± 1 BM 


. equ 


REGGRP5C+11 


A<_VJU Hi 1 Z BM 


. equ 


REGGRP50+12 




.equ 


REGGRP5 0+13 


7i C r\T^ IT 1 y1 "DKjT 

/it^ULJiit X 'IBiVl 


.equ 


REGGRP50+14 




. equ 


REGGRP50+15 


a c o 0 bm 


. equ 


rO 


scod-G Uditi 


.equ 


rl 


A O Tj-, J. 

acoaezDm 


.equ 


r2 


acodeSbm 


.equ 


r3 


P r* (=i 4 "him 


. equ 


r 4 


accdeSbm 


. equ 


r5 


acode6bm 


. equ 


r6 


acode7bm 


.equ 


xl 


acodeSbm 


. equ 


r8 


acodeSbm 


.equ 


r9 


acodelObm 


. equ 


rlO 


a code 11 bm 


. equ 


rll 


acodel2bm 


.equ 


rl2 


acodel3bm 


. equ 


rl3 


acodel4bin 


.equ 


rl4 


acodelSbm 


.equ 


rl5 



GENERAL 

REGGRP60 

AC0DE16BM 

AC0DE17BN 

AC0DE18BM 

AC0DE19BM 

RSFLAG 

XMTFLAG 

AC19 

RCP 

LPCNTRA 

FRMCTRH 

FRMCTRL 

ATMP 

;acbde_h 

; acode_l 

LPCTRl 

APTR 

acodel6bm 

acodel7bm 

acodelSbm 

acodel9bm 

rsf lag 

xmtflag - 

acl9 



PURPOSE REGISTER GROUP 60H-6FH 



.equ 60H 

.equ REGGRP60 

.equ REGGRP60+1 

,equ REGGRP60+2 

,equ REGGRP60+3 

.equ REGGRP60+4 

■equ REGGRP60+5 

.equ REGGRP60+6 

.equ REGGRP60+7 

.equ REGGRP60+8 

.equ REGGRP60+9 

.equ REGGRP60+10 

.equ REGGRP60+11 

.equ REGGRP60+12 

.equ REGGRP60+13 

.equ REGGRP60+14 

.equ REGGRP60+15 

.equ rO 

.equ rl 

. equ r2 

.equ r3 

.equ r4 

.equ r5 

.equ r6 



acode tmp storage 
acode rem pointerh 
acode rom pointerl 
counter 

acode ram pointer 
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rep 


.equ 


r7 




Ipcntra 


. equ 


r8 




f rrrvctrh 


. equ 


r9 




f rmctrl 


.equ 


rlO 




atmp 


. equ 


rll 


acode tmp storage 


a code 


. equ 


rrl2 


acode register pair 


acode__h 


.equ 


rl2 


acode rora pointer h 


acode_l 


, equ 


rl3 


acode rom pointer 1 


ipctrl 


. equ 


rl4 


counter 


aptr 


. equ 


rl5 


acode ram pointer 






; MACROS 












WDT 


.macro 








.byte 


5fh 






. endm 






WDH 


.macro 








.byte 


4fh 






. endm 






FILL 


.macro 








.byte 


OFFh 






. endm 














- * ★ * ★ ★ 




Interrupt Vector 


Table ***** 












.org 


OOOOH 






.word 


OOOCH 


aRQO P3.2 




.word 


OOOCH 


■IRQl, P3.3 




.word 


OOOCH 


;IRQ2, P3.1 




.word 


OOOCH 


;IRQ3, S/W generated 




.word 


OOOCH 


;IRQ4, S/W generated 




.word 


Tl INT 


;IRQ5, Timer Tl 









*******************A**************************************************** 
*****************Tfc**:*:**-:*c**:*t************************************jt******** 

**** START (poweron reset or stop mode) ***** 

************************************************************************ 
*************************************************************ifr******^f*** 



.page 
. org 



OOOCH 



start : 
START : 



di 
WDT 



; disable interrupts for init 
; hit WDT 



*****************:ir****************************************************** 

* Internal RAM Test and Reset All RAM = ?? mS * 

**************:fr****^t***************;ir************7ir******************** 



INIT: 



srp 



#XRGRPF 



; no, point to control group use stack 
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Id 


rl5 


clr 


@rl 


inc 


rl5 


cp 


rl5 




ult 



;rl5= pointer (bottom of RAM) 
write_again: clr @rl5 /write RAM(r5)=0 to memory 

i ;top of ram 7F 

:e__again 

********************,t****:*r****************** ******* ********* 

initialize registers 
********************************************^^*^^^*^^^^^^^^^^^^^^^^^^^ 

srp #REGGRPOO ; set the group 

; • Id SMR, #SMR_INIT ; set smr reg 

^. ********************^*:******^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
; STACK INITIALIZATION 

.*******************************,t^^-t*************************^**^^***^^^^ 
;%ETSTACK: 

;J Id spl, #STACKTOP ; set the start of the stack 

^1**********************************^****^^^*,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

7 TIMER INITIALIZATION 

'■^**********************************^-fc,^***^^^-^^*^^^^^^^^^^ 

■J Ici prel, #PRE1_INIT ; set the prescaler 

J Id tl,#Tl_lNIT / set the counter 

Id tmr, #TMR__START ; turn on the timer 

si--***********************^^,^**^^^^^*^^^^^^^^^^^^^ 

PORT INITIALIZATION 

***********************iir********************************************,^:^^^ 

; set portO lo 
; set port2 lo 
; set ports lo 



clr 


PO 


clr 


P2 


clr 


P3 


Id 


p3m, # 


Id 


p2m, # 


Id 


pOlm^ 



set 


port 


3 


mode 


set 


port 


2 


mode 


set 


port 


1 


mode 



INTERRUPT INITIALIZATION 
*****************************^**^^^ + *^it^j,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

SETINTERRUPTS: 

Id ipr, #IPR_INIT ; set the priority for timer 

*************************** ****^*^^**^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

initialize EEPROM by reading it 
* ********************** ******************^t*************** ****** ******* 

CALL READMEMORY /settle EE lines 

********** *************^A^******^^^^t ************************** *****>r**;,f^ 

MAIN LOOP CKBUTTONl 
************************** ******^^*^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

CKBUTTONl : CALL CKBl 

LD AC0DE19BM, AC19 

LD RCPTR, RCP 
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Get Rolling Code From EEPROM 

EE_ADDRESS 11->RC10B, RCllB, RC12B, RC13B 
EE_ADDRESS 13->RC20B, RC21B, RC22B, RC23B 
EE__ADDRESS 15->RC30B, RC31B, RC32B, RC33B 

INITPTRS: 



CKRC23: 



.flAPTRlS : 
t'iGETRCODE : 
^^GETRCODEl : 



srp 


#REGGRPOO 




add 


RC?TR,#3 


;TOP OF RC RAM 


CP 


RCPTR, #RC13B 




JR 


nz,CKRC23 




LD 


ADDRESS, #11 


;EE PTR 


JR 


GETRCODE 




CP 


RCPTR, #RC23B 




JR 


nz, APTR15 




LD 


ADDRESS, #13 




JR 


GETRCODE 




LD 


ADDRESS, #15 




LD 


Ipcntr , #2 




CALL 


READMEMORY 




LD 


@RCPTR,MTEMPH 


;HI BYTE 


DEC 


RCPTR 




LD 


@RCPTR,MTEMPL 


; LO BYTE 


DEC 


RCPTR 




DEC 


ADDRESS 




DJNZ 


Ipcntr, GETRCODEl 


;done? 


INC 


RCPTR 





Increment Rolling Code by 3 



.;JiNCRCBY3 : 
INCRNEXT ; 



srp 

ADD 

LD 

INC 

ADC 



#REGGRP10 
@rcptr, #3d 
bitptr, #3d 
rcptr 
0rcptr, #0 



;Add 3 to Rolling Code 



DJNZ bitptr, INCRNEXT 



■ Store updated Rolling Code in EEPROM 



SAVRCODE ; 
SAVRCODEl 



CALL 


CKBl 


CP 


ACODE19BM, AC19 


jP 


nz, SCHTOPP 


srp 


#REGGRP60 


ADD 


ADDRESS, #2 


LD 


Ipcntra, #2 


LD 


MTEMPH, @RCPTR 


DEC 


RCPTR 


LD 


MTEMPL, @ RCPTR 


CALL 


WRITEMEMORY 


DEC 


RCPTR 


DEC 


ADDRESS 


DJNZ 


Ipcntra, SAVRCODEl 


INC 


RCPTR 



PRESSED? 



START EEPROM ADDRESS 



lo byte 
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get ACODE0BM-ACODE18BM from eeprom 



GETACODE : 



srp 


#REGGRP4 0 




Id 


address, #9 


/highest eeprom addr 


Id 


acodeptr, #AC0DE18BM 


/highest acode ram addr 


CALL 


READMEMORY 




id 


@ a codept r , mt emph 


;hi byte 


DEC 


acodeptr 




CP 


acodeptr, #4Fh 


;4fh? done? 


JR 


z, ACODONE 




id 


@acodeptr,mtempl 




DEC 


address 




djnz 


acodeptr, GETACODE 





ACODONE : 

■,'""'T 

Mirror RCX0,1,2,3 into RCMIR0,1,2,3 and zero MSB 



:;§1IRR0R: 


srp 


#REGGRPiO 






Id 


codeptr, #RCMIR3 


;RCMIR3 FIRST 


-'SBYTE : 


id 


bitptr, #08d 


; set bit counter to 1 


-PSHIFT: 


RL 


@rcptr 


; shift RC into carry 




RRC 


Acodeptr 


; shift carry into mirror 




DJK2 


bitptr, SHIFT 






CP 


codeptr, #RCMIR3 


; if RCMIR3 then 




JR 


nz,N0TRC3 






AND 


RCMIR3, #0111111 


lb ; set bit 7 RCMIR3 to 0 


30TRC3 : 


DEC 


codeptr 


;next rcmir 




INC 


rcpt r 






CP 


codeptr, #3 5H 






JR 


nz,NBYTE 






sub 


rcptr, #4 






Trinary 


conversion & store in TRC0-TRC19 * 






srp 


#REGGRPOO 


;set reg pntr 




LD 


Ipcntr, #36H 


;ZERO OUT TRC PREVIOUS TRINARY #' 


ZAGN: 


DEC 


Ipcntr 






CLR 


@ Ipcntr 






CP 


Ipcntr, #20H 






JR 


nZf 2AGN 






LD 


TRCXX, #TRC19 






LD 


RCPTR, #20 




CALCTRNY : 


CP 


RCPTR, #01 


;calc trinary number 




JR 


Z,X3XX1 




CALL 


ENTR3 






CP 


RCPTR, #02 


;«2? 




JR 


2,TRIC0NVXX 






SUB 


RCPTR, #2 






LD 


tcntr, RCPTR 






ADD 


RCPTR, #2 
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ADDAGN : 



X3XX1 ; 



TRICONVXX: 



INCTRCXX: 



ADDXXBK: 



CALL 


ENTR3A 


CALL 


AD3XX 


CALL 


AD3XX 


CALL 


XFER 


DJNZ 


t en tr, ADDAGN 


JR 


TRICONVXX 


LD 


x3xabcd, #01h 


C J- X: 


x3xabcd.l 


clr 


x3xabcd2 


cir 


x3xabcci3 


SBC 


RCMIRO, x3xabcd 


SBC 


RCMIRl,x3xabcdl 


SBC 


RCMIR2, x3xabcd2 


SBC 


RCMIR3, x3xabcd3 


JR 


C, ADDXXBK 


INC 




JR 


TRICONVXX 


CCF 




LD 


Ipcntr, x3xabcd 


ADC 


RCMIRO, Ipcntr 


LD 


Ipcntr, x3xabcdl 


ADC 


RCMIRl, Ipcntr 


LD 


Ipcntr, x3xabcd2 


ADC 


RCMIR2, Ipcntr 


LD 


Ipcntr, x3xabcd3 


ADC 


RCMIR3, ipcntr 


DEC 


RCPTR 


DEC 


TRCXX 


CP 


TRCXX, #SYNC1 


JR 


n2,NXCP 


DEC 


TRCXX 


CP 


TRCXX, #1FH 


JR - 


nz, CALCTRNY 



radd to itself 



;TCNTR=0? 



NXCP: 



Transmit initialization 



; next lower power of 3 
; done with TRC00-TRC19 ? 
: sync bit position? 

ryes 
: no 



***************************** 

initialize RSFLAG * 



disrscall : 



tm 


RS232IP, #RS232IM 


JR 


z, disrscall 


Id 


RSFLAG, #OFFh 


srp 


#REGGRP4 0 


LD 


SYNC1,#02H 


LD 


acodeptr, #ACODEOBM-1 


LD 


trcptr, #SYNCO 


LD 


BITPTR, #0f fH 


LD 


CODEPTR, fSYNCO 


LD 


xmtreg, SYNCO 


LD 


FRMCTRH, #02H 


LD 


FRMCTRL, #OAOH 



;DATA IN LO? 

;set rs232 call enable flag 

; set reg pntr 
/INITIALIZE SYNCl 
; initialize 
; for xmt 



;04H INIT FRAME COUNTER H 
;OBH INIT FRAME COUNTER L 



A- II 
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clr 

LD 

LD 

LD 
Clr 



address 

RS232DOCOUNT, #11D 
RS232DICOUNT, fOFFH 

RSCOMMAND, #OFFH 
mtf lag 



/address for RS232 xfer 
;turn off RS232 output 
;turn off RS232 input 
/incoming data present 
/turn off rs232 command 
/initialize mtflag 



Wait for transmit INT 



LOOP: 



LD 
EI 



IMR, #TIMER ON IMR 



/ INT Mask enable 
/enable INT 



>.*****^**^p,5, 232 Ro u 1 1 ne ********************************* * 



KbDATRDY ; 


CP 


RSCOMMAND, #OFFH 


/RS2 32 DATA IN ? 




JR 


Z, XMTMTL 






CP 


mtflag, #0 






jr 


2,RCVMTH 




J RCVMTL: 


LD 


mtempl, RS232DI 


/input mtempl 




Id 


RSCOMMAND, #OFFH 




clr 


mt flag 


/reset mtflag 




call 


W.RITEMEMORY 


; write mtempl to 


; XMTMTH : 


call 


READMEMORY 


/read mtempl from. 


Id 


RS2 32DO,mtemph 


/rs232 echo back 




Id 


RSSTART, #OFFH 


/mtemph 




clr 


RS232DOCOUNT 




Id 


XMTFLAG, #OFFh 


/set flag 




inc 


address 




cp 


address, #16D 






jr 


nz, XMTMTL 






clr 


address 


/set address to 0 


!RCVMTH : 




XMTMTL 




Id 


mtemph,RS2 32DI 


/mtemph 




Id 


RSCOMMAND, #OFFH 




Id 


mtflag, #OFFH 




XMTMTL: 


cp 


XMTFLAG,#OFFh 


/ck for xmt first 




jr 


nz, CKSWS 






cp 


RS232DOCOUNT, #llD/test for output 




jr 


nz, CKSWS 






Id 


RS232DO, mtempl 


/echo back mtempl 




Id 


RSSTART, #OFFH 




clr 


XMTFLAG 






CKSWS: 


CP 


FRMCTRH, #0 


/FRAME CTR = 0? 




JR 


nz, LOOP 






cp 


FRMCTRL, #0 






JR 


nz, LOOP 




SCHTOPP : 


STOP 







TIMER 1 INTERRUPT ROUTINE 
; *********************************** 
T1_INT: CALL CKBl 

EI 

CP RSFLAG,#OFFh 
JR nz,BEGINT 



/enable interrupt 
/RS232 CALL ENABLE FLAG 
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call 
push 



RS232 
RP 



;RS232 I/O 

: 9 



jj^^ pulse on P26*****************************,^**** 



OR 
NOP 
AND 



P2, #01000000B 
P2, #10111111b 



set P26 hi 
set P26 lo 



★ *************PP>;^£ Q syj^c pulse on P26********************************* 

CP LPCNTR, #00H /testing frame sync pulse 

JR nz.NOSYNC /testing frame sync pulse * 

OR P2, #010000006 ; set frame sync pulse hi * 

JR BEGINT ; * 

NOSYNC: AND P2,#10111111b ; set frame sync pulse lo 
******************^*^***^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 



BEGINT; 



NEXT : 

CKBP3 : 

CKBP5 : 

BPOO : 
CK2145: 
LP46: 
XMROO : 
CK6790: 

I.P91: 

LPCTROORET: 



INCACODE : 



INC 

CP 

JR 

CP 

JR 

SUB 

SBC 

CALL 

CP 

JR 

CP 

JR 

IRET 

CP 

JR 

IRET 

LD 

INC 

CP 

JR 

CP 

JR 

LD 

IRET 

CP 

JR 

CP 

JR 

CP 

JR 

TM 

JR 

DEC 

LD 

LD 

IRET 

INC 

LD 

LD 

IRET 



BITPTR 
LPCNTR, #00 
n2,NEXT 
BITPTR, #00 
nz,NEXT 
FRMCTRL, #1 
FRMCTRH, #0 
XMT 

LPCTR, #45 
n2,CKBP5 
BITPTR, #1 
2, BPOO 

BITPTR, #03h 
2, BPOO 

BITPTR, #OFFH 
LPCNTR 
LPCNTR, #21 
mi, CK6790 
LPCNTR, #4 6 
pl,CK6790 
xmtreg, #3 

LPCNTR, #67 
mi, LP91 
LPCNTR, #91 
mi, XMROO 
LPCNTR, #91 
z,LPCTROO 



;next bit 
; LPCNTR 0 ? 

; BITPTR 0 ? 

/DECREMENT FRAME COUNTER 

;XMT next bit 
/nibble 45? 



/reset bit pointer 
/increment nibble pointer 
/lpcntr>20? 
;no 

/yes, lpcntr<46 

/yes 

/no 



LPCNTR, #00000001b 
nz, INCACODE 
trcptr ;no 
CODEPTR, trcptr 
xmtreg, §CODEPTR 



acodeptr /yes 
CODEPTR, acodeptr 
xmtreg, ACODEPTR 



;LPCNTR=91? 

/LPCNTR bit 0-0? 
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LPCTROO: 



clr 

LD 

LD 

LD 

LD 

IRET 



LPCNTR 

TRCPTR, #SYNCO 
acod^ptr, #ACODEOBM-1 
xmtreg, SYNCO 
CODEPTR, #SYNCO 



* * * * ★ 

AD3XX: 



XFER: 



ADD TRINARY NUMBER TO ITSELF ROUTINE 



, ENTR3: 



^^^ENTRSA: 



ADD 
ADC 
ADC 
ADC 
ret 

LD 
LD 
LD 
LD 
ret 

LD 

Clr 

clr 

Clr 

ret 

LD 

Clr 

clr 

clr 

ret 



x3xabcd, x3xtmp ; add to itself 
x3xabcdl, x3xtmpl 
x3xabcd2 , x3xtnip2 
x3xabcd3, x3xtmp3 



x3xtmp, xSxabcd 
x3xtmpl , x3xabcdl 
x3xtmp2, x3xabcd2 
x3xtmp3, x3xabcd3 



x3xabcd, #03h 
x3xabcdl 
x3xabcd2 
x3xabcd3 



x3xtmp, #03h 
x3xtmpl 
x3xtmp2 
x3xtmp3 



TRANSMIT ROUTINE * 

; BLANK TIME? 
;yes 

; force trinarv 



'XMT 



XMM: 

SBOLO : 
SBOHI: 



CP 


XMTREG, #3 


JR 


z, SBOLO 


CP 


XMTREG, #2 


JR 


ule, XMM 


Id 


XMTREG, #2 


LD 


XMTREG1,XMTREG 


COM 


XMTREGl 


AND 


XMTREGl,#00000011b 


CP 


XMTREGl, BITPTR 


JR 


le, SBOHI 


AND 


PO, #11111110b 


RET 




OR 


PO, #00000001b 


RET 





;TWO 

; no, get xmt code 
; compliment 
;mask 2 LSB 

; compare bitptr to xmtreg 
;set POO lo 
;set POO hi 



WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 

WRITEMEMORY: 

push RP ; SAVE THE RP 
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srp 


#REGGRP4 0 


call 


STARTB 


Id 


serial, #00110000B 


call 


cirp T 2VT niTT 
o Hi i\ ± n.lj\j KJ 1 


and 




call 


O 1 rxr\ J. £5 * 


1 d 


seriaj., ffUiuuuuuUB 


o ^ 


serxai, auaress 


call 


^"PR TAT OTTT 


Id 


o e i J. d. J. , lu u einpn 


call 


SERIALOUT 


Id 


serial, xntempl 


call 


SERIALOUT 


call 


END WRITE 


call 


STARTB 


clr 


serial 


call 


SERIALOUT 


and 


csport f #csl 


pop 


RP 


ret 





set the register pointer 

output the start bit 

; set byte to enable write 
; output the byte 
; reset the chip select 
output the start bit 

; set the byte for write 
; or in the address 
; output the byte 
; set the first byte to write 

; output the byte 
; set the second byte to writ 

; output the byte 
; wait for the ready status 
output the start bit 
set byte to disable write 
output the byte 
reset the chip select 
reset the RP 

^, 

; READ WORD FROM MEMORY 

; ADDRESS IS SET IN REG ADDRESS 

; DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

; ADDRESS IS UNCHANGED 

READMEMORY: CALL CKBl 

push RP 

srp #REGGRP40 ; set th4 register pointer 

call STARTB ; output the start bit 

Id serial, #10000000B ; preamble for read 

or serial, address ; or in the address 

call SERIALOUT ; output the byte 

call SERIALIN ; read the first byte 

Id mtemph, serial ; save the value in mtemph 

call SERIALIN ; read teh second byte 

Id mtempl, serial ; save the value in mtempl 

and csport, #csl ; reset the chip select 

pop RP 

ret 

START BIT FOR SERIAL NONVOL 

ALSO SETS DATA DIRECTION AND AND CS 

STARTB: 
data 

ciKport,#clockl ; start by clearing t 



Id 


P2M, #P2M_INIT 


set port 2 


mode 


and 


csport, #csl 






and 


clkport, fclockl 






and 


dioport, #dol 


c 




or 


csport, #csh 


; set 


the 


or 


dioport, #doh 


; set 


the 


or 


clkport, #clockh 


; set 


the 
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and 
and 
ret 



clkport ^ #clockl 
dioport, #dol 



; reset the clock low 
; set the data low 
; return 



END OF CODE WRITE 
END WRITE: 



ut mode data 



m 

4: 
m 
m 

'.I 

u 
Q 

CI 



ENDWRITELOOP : 

EWRLP : 
are done 



Id 


P2M,# (P2M_INIT+1) 


; set port 2 mode forcing inp 


and 


csport, #csl 


; reset the chip select 


nop 




; delay 


or 


csport , #csh 


; set the chip select 


WDT 




; kick the dog 


cp 


LPCNTRA, #1 






nz, EWRLP 




call 


CKBl 




Id 


temph, dioport 


; read the port 


and 


temph, #doh 


; mask 




z, ENDWRITELOOP 


if the bit is low then loop till we 


and 


csport, #csl 


; reset the chip select 


Id 


P2Mr #P2M_INIT 


set port 2 mode forcing output mode 


ret 







; SERIAL OUT 

; OUTPUT THE BYTE IN SERIAL 



SERIALOUT: 
data 



SERIALOUTLOOP : 
the carry 

ONEOUT : 



2ER00UT : 



Id P2M, #P2M_IKIT ; set 

Id tempi, #8H 

rlc serial 

jr nc,2ER00UT 

or dioport, #doh 

or clkport , #clockh 

and clkport , tclockl 

and dioport, #dol 

djnz tempi, SERIALOUTLOOP 

ret 

and dioport, #dol 

or clkport, #clockh 

and clkport , #clockl 

and dioport , #dol 

djnz tempi, SERIALOUTLOOP 

ret 



port 2 mode forcing output mode 

; set the count for eight bit 

; get the bit to output into 

; output a zero if no carry 

; set the data out high 

; set the clock high 

; reset the clock low 

; reset the data out low 

; loop till done 

; return 

/ reset the data out low 

; set the clock high 

; reset the clock low 

; reset the data out low 

; loop till done 

; return 



; SERIAL IN 

; INPUTS A BYTE TO SERIAL 



SERIALIN:- 



Id 



P2M, # (P2M_INIT+1) 



; set port 2 mode forcing inp 
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ut mode data 



s 


Id 


tempi, #8H 


SERIALINLOOP: 








or 


clkport, #clockh 




rcf 






Id 


temph, dioport 




and 


temph, #doh 




jr 


z, DONTSET 




scf 




DONTSET: 








* rlc 


serial 




and 


clkport , #clockl 




djnz 


tempi, SERIALINLOOP 




ret 




RS232 


DATA ROUTINES 


enter 


rs232 


>3^ca.xu WXUIi WLJJL^jt L^LJ U Li (_ L? Li L X 


O O O /~\ O rn 71 pn _ 

Kb^ ozUbTART : 


clr 


rsstart 




Id 


rs232odelay, #6d 




clr 


rs232docount 




and 


RS2320P, #RS2320C 




jr 


NORSOUT 


ri o o o o . 


push 


rp 




srp 


#REGGRP10 




cp 


RSSTART, #OFFH 






z, RS2320START 


RS^320UTPUT : 






cp 


rs232docount , #lld 




jr 


nz,RS232R 




or 


RS2320P, #RS2320S 




JR 


NORSOUT 


RS232R: 






lay 


djnz 


rs232odelay, NORSOUT 






inc 


rs232docount 


he next cycle 








scf 




xuir suop dilS 








rrc 


rs232do 


he carry 








jr 


c, RS232SET 


then set 








and 


RS2320P, #RS2320C 




jr 


SETTIME 


RS232SET : 






or 


RS2320P, #RS2320S 


SETTIME: 






Id 


rs232odelay, #6d 




tm 


rs232docount, #00000001b 




jr 


2, NORSOUT 



set the count for eight bit 



set the clock high 
reset the carry flag 
read the port 
mask out the bits 

set the carry flag 

get the bit into the byte 
reset the clock low 

loop till done 
return 



rs232do 
one shot 

set the time delay to 3 . mS 
start with the counter at 0 
clear the output 



save the rp 

set the group pointer 

test for the start flag 



test for last 

set the output idle 

; cycle count time de 

; set the count for t 

; set the carry flag 

; get the data into t 

; if the bit is high 

; clear the output 
find the delay time 

; set the output 

set the data output delay 
test for odd words 

; if even done 
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2mS 

NORSOUT : 
RS232INPUT: 



ump 



ata for lo start bit 
1 idle then skip 

clr 



RECEIVING: 
up 

! 

etting carry 
SKIPSETTING: 
the iTiemory 



DIEVEN: 

till next start 
NORSIN: 



Id rs232odelay, #7d 



cp rs232dicount, #OFFH 

jr nz, RECEIVING 

tm RS232IP, #RS232IM 

nz, NORSIN 

rs232dicount 

id rs232idelay, #3 

djnz rs2 32 idelay, NORSIN 

inc rs232dicount 

cp rs232dicount , #10d 

jr 2, DIEVEN 

tm RS232IP, #RS232IM 

rcf 

jr z, SKIPSETTING 
SCf 

rrc rs232di 

Id rs232idelay, #6d 

tm rs232dicount , #00000001b 

jr 2, NORSIN 

Id rs232idelay, #7 

jr NORSIN 

Id rs232dicount, #OFFH 

Id rscommand^ rs232di 

clr rsccount 

rp 



set the delay to 7 for odd 
; this gives 6.5 *.51 



test mode 

if receiving then j 

test the incoming d 

if the line is stil 

start at 0 

set the delay to mi 



skip till delay is 

bit counter 

test for last timeo 



/ test the incoming d 

; clear the carry • 
if input bit not set skip s 

; set the carry 

; save the data Into 

; set the delay 
test for odd 

; if even skip 
; set the delay 



turn off the input 

save the value 
clear the counter 



return the rp 



pop 
ret 

; ***************** ***:*:*CKB** ************************************* ******* 

; HIT WDT 



CKBl : 



CKB2 : 



CKB3: 



WDT 
tcm 

jP 
clr 
Id 
RET 

tcm 

jP 
Id 
Id 
RET 

tcm 



P3, #S1 
nz,CKB2 
AC! 9 

RCP, #RC10B 



P3,#S2 
n2,CKB3 
AC19, #S2B39 
RCP, #RC20B 



/switch 1 pressed? 

,#S1B39 yes 

; set rcptr si 



;yes 



P3,#S3 



;no, switch 2 pressed? 

;set rcptr s2 

mo, switch 3 pressed? 
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jp nz.HELL 

Id AC19,#S3B39 ;yes 

Id RCP,#RC30B 

RET 



HELL : NOP 

jr CKBl 
STOP 

FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 

a FILL 



FILL 
FILL 
FILL 
FILL 



m 

FILL 

'r FILL 
7l FILL 
.end 

Ly 
ill 

u 
CI 

m 



A 
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TO SET TO 2uS dear each edge if tinner extension times out then clear radio 
T1 set to 1 uS for 256 uS roll to turn on the interrupts and to generate the 1 mS 



Bit 35 


Bit 37 


Bit 39 


ID BIT 


Type 


0 


0 


Add In 


0 


Normal CMD 


0 


1 


Add in 


1 


Touch code 


0 


2 


Add In 


2 


Security 


1 


0 


Add In 


3 


IR Protector 


1 


1 


Key ID 


4 


Wall control 


1 


2 


Key ID 


5 


Up Down CMD 


2 


0 


Key ID 


6 


Up Down Stop 


2 


1 


Don't learn 


7 


Open Door Indicator 


2 


2 


Don't learn 


8 


Aux Function 



NON-VOL MEMORY MAP 



00 


A1 


RA1 


RADIOP5 


01 


A1 


RA1 


RADI01P5 


02 


A2 


RC1 


COUNTP5 


03 


A2 


RC1 


COUNT1P5 


04 


A3 


RA2 




05 


A3 


RA2 




06 


A4 


RC2 




07 


A4 


RC2 




08 


A5 


RA3 




09 


A5 


RA3 




OA 


A6 


RC3 




OB 


A6 


RC3 




OC 


A7 


RA4 




OD 


A7 


RA4 




OE 


AS 


RC4 




OF 


A8 


RC4 




10 


A9 


RA5 




11 


A9 


RA5 




12 


AID 


RC5 




13 


A10 


RC5 




14 


All 


RA6 




15 


All 


RA6 




16 


A12 


RC6 




17 


A12 


RC6 




18 


B 


RA7 




19 


B 


RA7 




1A 


C 


RC7 




IB 


C 


RC7 




1C 


CYCLE 


COUNTER 1ST 16 BITS 


ID 


CYCLE COUNTER 2ND 16 BITS 


IE 


VACATION FLAG 


IF 


A MEMORY ADDRESS LAST WRITTEN 




OXXXXXXX 


ABC CODES 




1XXXXXXX 


D CODES 



20-2F OPERATION BACK TRACK 
30-3F FORCE BACK TRACE 



EQUATE STATEMENTS 



check sum value 


.equ 


0A2H 


TIMER 0 


.equ 


10H 


TIMER 0 EN 


.equ 


03H 


TIMERJ_EN 


.equ 


OCH 


P01M IN IT 


.equ 


000001 OOB 


P2M INIT 


.equ 


00100100B 


P3M INIT 


.equ 


00000011 B 


P01S INIT 


.equ 


OOOOOOOOB 


P2S INIT 


.equ 


001 0011 OB 


P3S INIT 


.equ 


OOOOOOOOB 



; set mode p00-p03 out 

; set port3 p30-p33 ANALOG input 



PERIODS 



MONOPER 
RTOPERIOD 



.equ 
.equ 



38D 
130D 



; MONOSTABLE PERIOD MmS 
; period *4mS => min 4* period 



INTERRUPTS 



ALL_ON_IMR 
RETURN IMR 



.equ 
.equ 



00111001b 
00111001b 



; turn on int for radio 
; return on the IMR 



Counter group 



CounterGroup 


.equ 


00 


counter group 


LastMl Match 


.equ 


05H 


last match 1 delay location 


LastMatch 


.equ 


06H 


, last matching code address 


LoopCount 


.equ 


07H 


loop counter 


CounterA 


.equ 


08H 


counter translation MSB 


Counters 


equ 


09H 




CounterC 


.equ 


OAH 




CounterD 


.equ 


OBH 


counter translation LSB 


MirrorA - 


.equ 


OCH 


back translation MSB 


Mirrors 


.equ 


ODH 




MirrorC 


.equ 


OEH 




MirrorD 


.equ 


OFH 


back translation LSB 



foopcount 

countera 

counterb 

counterc 

counterd 

mirrora 

mirrorb 

mirrorc 

mirrord 



.equ r7 

.equ rS 

.equ r9 

.equ r1 0 

.equ r1 1 

,equ r12 

.equ r1 3 

.equ r1 4 

.equ r1 5 



; LEARN MODE SWITCHES AND ERASE 



LearnModeGroup 


.equ 


10H 




SW_B 


.equ 


LearnModeGroup 




CmdSwitch 


.equ 


LearnModeGroup+1 


command switch 


LearnDebounce 


.equ 


LearnModeGroup+2 


learn switch debouncer 


LeamTimer 


.equ 


Learn ModeGroup+3 


learn timer 


SkipRadio 


.equ 


LearnModeGroup+4 


flag to skip the radio read 


ClearCount 


.equ 


LearnModeGroup+5 




EraseTimer 


.equ 


Learn ModeGroup+6 


erase timer 


BIT13 


.equ 


Learn ModeGroup+7 




BIT1P5 


.equ 


LearnModeGroup+8 




ID B 


.equ 


LeamModeGroup+9 




L^STBIT 


.equ 


LearnModeGroup+1 0 




PAST_MATCH 


.equ 


LearnModeGroup+1 1 




Mono 


.equ 


LearnModeGroup+1 3 




RadioTimeOut 


.equ 


LearnModeGroup+1 4 


radio time out 


SwitchSkip 


.equ 


LearnModeGroup+1 5 




cmdswitch 


.equ 


r1 




learndb 


.equ 


r2 




learnt 


.equ 


r3 




skipradio 


.equ 


r4 




erase! 


.equ 


r6 




rto 


.equ 


r14 




mono 


.equ 


r13 





LEARN EE GROUP FOR LOOPS ECT 



LeamEeGroup 
TempH 
TempL 
Temp 

COUNT1P5H 

COUNT1P5L 

CMP 

MTempH 

MTempL 

MTemp- 

Serial 

Address 

TOExt 

T4MS 



.equ 20H 

.equ LeamEeGroup 

.equ LearnEeGroup+1 

.equ LeamEeGroup+2 

.equ LeamEeGroup+3 

.equ LeamEeGroup+4^ 

.equ LeamEeGroup+5 

.equ LeamEeGroup+6 

.equ LearnEeGroup+7 

.equ LeamEeGroup+8 

.equ LearnEeGroup+9 

.equ LearnEeGroup+1 0 

.equ LeamEeGroup+1 1 

.equ LeamEeGroup+1 2 



counter value memory 
counter value memory 

; memory temp 
; memory temp 
; memory temp 

; serial data to and from nonvol memory 
; address for the serial nonvol memory 
; timer 0 extend dec every TO int 
; 4 mS counter 



T125MS 

COUNTP5H 

COUNTP5L 

lemph 

tempi 

temp 

cmp 

mtemph 

mtempi 

mtemp 

serial 

address 

tOext 

t4ms 

t125ms 



.equ LearnEeGroup+1 3 
.equ LearnEeGroup+1 4 
.equ Learn EeGroup+1 5 



.equ 
.equ 
.equ 
,equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



rO 

n 

r2 
r5 
r6 
r7 
r8 
r9 

no 
r11 
r12 
r13 



; 125mS counter 

; counter value memory 

; counter value memory 



memory temp 
memory temp 
memory temp 

serial data to and from nonvol memory 
address for the serial nonvol memory 
timer 0 extend dec every TO int 
4 mS counter 
125mS counter 



RADIO GROUP 



RadioGroup 

RTemp 

RTempH 

RTempL 

RTimeAH 

RTimeAL 

RTimelH 

RTimelL 

RadioPSH 

RadioPSL 

PointerH 

PointerL 

AddValueH 

AddValueL 

RadioC 

Radiol P5H 

Radiol P5L 

rtemp 

rtemph 

rtemp! 

rtimeah 

rttmeai 

rtimeih 

rlimeil 

radiopSh 

radiopSI 

pointeffi 

pointerl 

addvalueh 

addvaluel 

radioc 

radio1p5h 

radio 1p5l 



.equ 


30H 


.equ 


RadioGroup 


.equ 


RadioGroup+1 


.equ 


RadioGroup+2 


.equ 


RadioGroup+3 


.equ 


RadioGroup-i-4 


.equ 


RadioGroup+5 


.equ 


RadioGroup+6 


.equ 


RadioGroup+7 


.equ 


RadioGroup+8 


.equ 


RadloGroup+9 


.equ 


RadioGroup+10 


.equ 


RadioGroup+1 1 


.equ 


RadioGroup+12 


.equ 


RadioGroup+13 


.equ 


RadloGroup+14 


.equ 


RadioGroup+15 


.equ 


rO 


.equ 


r1 


.equ 


r2 


.equ 


r3 


.equ 


r4 


.equ 


r5 


.equ 


r6 


.equ 


r7 


.equ 


f8 


.equ 


r9 


.equ 


no 


.equ 


ni 


.equ 


n2 


.equ 


n3 


.equ 


n4 


.equ 


ns 



; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; .5 code storage 
; .5 code storage 



; radio word count 
; 1 .5 code storage 
; 1.5 code storage 
; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; radio .5 code storage 
; radio .5 code storage 



; radio word count 

; radio 1 .5 code storage 

; radio 1 .5 code storage 



1 

; Check sum group with past radio data 

■^^^ ********************* *************-01tit******it***-1r*** *********** 



C)h^(^\<C^rni in 


Anil 


40H 




check__sum 


.equ 


rO 


; check sum pointer 


rom_data 


.equ 


n 




test_adr_hi 


.equ 


r2 




test_adrJo 


.equ 


r3 




rtlag 


.equ 


r4 




test_adr 


.equ 


it2 




pradioa 


.equ 


r6 




pradiob 


.equ 


r7 




pradioc 


.equ 


rS 




pradiod 


.equ 


r9 




pradioe 


.equ 


no 




pradiof 


.equ 


r11 




pradiog 


.equ 


r12 




pradioh 


.equ 


r13 




Check_Sum 


.equ • 


CheckGroup+0 


; check sum reg for por 


Rom Data 


.equ 


CheckGroup+1 


; data read 


RFlag 


.equ 


CheckGroup+4 


; radio flags 


RlnFilter 


.equ 


CheckGroup+5 


; radio input filter 


PRadioA 


.equ 


CheckGroup+6 


; past recieved value 


PRadioB 


.equ 


CheckGroup+7 


; past recieved value 


PRadioC 


.equ 


CheckGroup+8 


; past recieved value 


PRadioD 


.equ 


CheckGroup+9 


; past recieved value 


PRadioE 


.equ 


CheckGroup+OAH 


; past recieved value 


PRadioF 


.equ 


CheckGroup+OBH 


; past recieved value 


PRadioG 


.equ 


CheckGroup+OCH 


; past recieved value 


PRadioH 


.equ 


CheckGroup+ODH 


; past recieved value 



; Timer group with rs232 data 



TimerQroup 


.equ 


50H 


r5232do 


.equ 


r5 


rs232di 


.equ 


r6 


rscommand 


.equ 


r7 


rs232docount 


.equ 


r8 


rs232dicount 


.equ 


tS 


fs232odelay 


.equ 


no 


rs232idelay 


.equ 


ni 


rs232ccount 


.equ 


rt2 


rs232page 


.equ 


n3 


rsccount 


.equ 


n4 


rsstart 


.equ 


ns 


RAD10_CMD 


.equ 


TimerGroup+OH 


TaskSwitch 


.equ 


TimerGroup+2H 


SysDisable 


.equ 


TimerGroup+3H 


ADD2 


.equ 


TlmerGroup+4H 



; radio command 

; system disable timer 



RS232DO 


.equ 


TimerGroup+5 




RS232Di 


.equ 


TimerGroup+6 




RSCommand 


.equ 


TimerGroup+7 




RS232DoCount 


.equ 


TimerGroup+8 




RS232DiCount 


.equ 


TimerGroup+9 




RS2320De!ay 


.equ 


TimerGroup+10 




RS232I Delay 


.equ 


TimerGroup+1 1 




RS232CCount 


.equ 


TimerGroup+1 2 




RS232Page 


.equ 


TimerGroup+1 3 




RSCount 


.equ 


TimerGroup+1 4 


; rs232 byte counter 


RSStart 


.equ 


TimerGroup+1 5 


; rs232 start flag 


TestVal 


.equ 


TimerGroup+1 6 


; test value 


STACKTOP 


.equ 


127D 


; start of the stack 


STACKEND 


.equ 


060H 


; end of the stack 



RS2320S 

RS2320C 

RS2320P 

RS2321P 

RS232IM 

csh 

csl 

clockh 
clock! 
doh 
dol 

csport 

dioport 

clkport 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



000001 OOB 

11111011B 

PO 

P3 

0000001 OB 

00000001 B 

11111110B 

0000001 OB 

11111101B 

00000001 B 

11111110B 

PO 

P2 

PO 



RS232 output bit set 
RS232 output bit clear 
RS232 output port 
RS232 input port 
RS232 mask 

chip select high for the 93c46 
chip select low for 93c46 
clock high for 93c46 
clock low for 93c46 
data out high for 93c46 
data out low for 93c46 
chip select port 
data i/o port 
clock port 



WDT 
WDH 
Fill 



.macro 
.byte 5fh 
.endm 
.macro 
.byte 4fh 
.endm 
.macro 
.byte OFFH 
.endm 



Interrupt Vector Table 



-org OOOOH 



.word RadioNeglnt 
.word OOOCH 
.word OOOCH 



IRQO P3.2n 
IRQ1 , P3.3 
IRQ2, P3.1 



word RadioPoslnt 

.word TimerZeroInt 
.word TimerOneInt 



IRQ3, P3,2 p FOR EMUUMION 
USE P3.0 FROM 28 PIN 
IRQ4, TO 
IRQ5, T1 



page 
.org OOOCH 

WATCHDOG iNITILIZATION 



start: 
START: 



di 

WDH 
WDT 



; turn off the interrupt for init 
; kick the dog 



I************************************************************************ 
Internal RAM Test and Reset All RAM ^ mS 



write_again: 
write_again1 : 



srp 


#OFOh 


Id 


r15,#4 


WDT 




Id 


r14,#1 


Id 


@r15,r14 


cp 


r14,@r15 


jr 


ne.system error 


rl 


r14 


jr 


nc.write againi 


cir 


<3)r15 


inc 


r15 


cp 


r15.#7FH 




ult,vvrite_again 



; point to control group use stack 
;r15= pointer (minimum of FIAM) 

; KICK THE DOG 



;write 1,2,4,8,10,20,40,80 
;then compare 



,*write RAM(r5)=:0 to memory 



Checksum Test 



CheckSumTest: 



add sum: 



system_error: 



srp 


#CheckGroup 


Id 


test adr hi,#07H 


Id 


test_adrJo,#OFFH 


WDT 




idc 


rom_data,@test_adr 


add 


check_sum,rom_data 


decw 


test„adr 




nz,add__sum 


cp 


check_sum,#check_sum__value 




system_ok 




z,system_ok 


and 


P2,#11011101B 



imaximum address=fffh 

; KICK THE DOG 
;read ROM code one by one 
;add rt to checksum register 
;increment ROM address 
;address=0 ? 



;check final checksum == 00 ? 
; turn on the LED to indicate fault 



system_ok: 



Id P2M,#P2M_INIT 

jr system__error 

.byte 256-check__sum_vaIue 

WDT 

srp #Learn M odeGrou p 

Id eraset,#OFFH 

Id CmdSwitch,#OFFH 

Id learnt,#OFFH 

Id iearndb.#OFFh 

Id RSCommand,#OFFH 

Id RS232DoCount,#1 1 D 



; turn on the LED to indicate fault 



; kick the dog 

; set the group 

; set the erase timer 

; set the switch debouncer 

; set the learn timer 

; set the learn debounce 

; turn off the rs232 command 

; turn off the rs232 output 



; STACK INITILIZATION 

.*************♦*********♦***♦*****♦**♦***♦♦*#**♦*♦******•**♦******«***♦♦** 
SetStack; 

cir 254 ^ 

Id 255,#STACKTOP ; set the start of the stack 



; TIMER INITILIZATION 



Id PRE0,#OOOO1001B 

Id PRE1. #000001118 

cIr TO 

cir T1 

Id TMR,#00001111B 



; set the prescaier to / 2 for 8Mhz 
; set tfie prescaier to / 1 for SMhz 
; set the counter to count FF through 0 
; set the counter to count FF through 0 
; turn on the timers and load 



PORT INITILIZATION 



Id P0.#P01SJNIT 

Id P2,#P2SJNIT 

Id P3,#P3S„INiT 

Id P01M,#P01MJNIT 

Id P3M,#P3MJNIT 

Id P2M,#P2MJNiT+1 



RESET all ports 



set mode 

set ports p30-p33 input analog mode 
set port 2 mode 



MEMORY INITILIZATION 



Id 

call 



Address,#3EH 
ReadMemory 



; set non vol address to UNUSED 
; read the value to INIT 



^***** ********* ♦***■*♦*****♦*♦♦********♦***♦*♦****** *•***■********♦*♦♦♦*♦♦* 

INITERRUPT INITILIZATION 



Setinterrupts: 



Id IPR.#00000001B 
Id IMR,#ALL_ONJMR 
Cir IRQ 



; set the priority to timer 
; turn on the interrupt 
; CLEAR IRQ'S 



MAIN LOOP 

************************************************************************ 



MainLoop: 



TestRS232: 



;SW10UT: 

;SW20UT: 

•LIOUT: 
TEST34: 

TEST35: 



ei 

and P2,#01111111b 
WDT 

Id P01M,#P01M_1NIT 

Id P3M,#P3MJNiT 

Id P2M.#P2MJNrr+1 

call LEARN 

srp #TimerGroup 

cp rsstart,#OFFH 

jr z,skiprs232 

cp rscomnnand,#OFFH 

jr z,skiprs232 

cp rs232docount,#11d 

jr n2,skiprs232 

cp rscommand,#30H 

jr nz.TEST34 

cIr rs232do 

cp LeamDebounce,#OFFH 

jr nz,SW10UT 

or rs232do,#00000001 B 

cp CmdSwitch,#OFFH 

jr nz.SW20UT 

or rs232do,#0000001 OB 

cp LeamTimer,#OFFH 

jr nz,L10UT 

or rs232do.#00001000B 



jr VacSwOpen 

cp rsconnnr^and,#34H 

jr nzTEST35 

Id rs232page,#00H 

jr RS232PageOLrr 

cp rscommand,#35H 

jr nzJESTSe 



; enable interrupt 
; turn off the flag 
; kick the dog 
; set mode 

; set ports p30-p33 input analog mode 
; set port 2 mode 

; do the leam switch 



test for starting a transmission 
if starting a trans skip 
test for the off mode 

; test for output done 

; if not the skip 

; test for swrtch data 

; clear the data 

; test switch one 

; set the marking bit 

; test switch 2 
» 

; set the mari<ing bit 
; test for leam 1 
; set the marking bit 



; test for page 0 



; test for page 1 



Id 



rs232page,#10H 



RS232PageOUT: 
Id 



SkipRadio,#OFFH 
dec SwitchSkip 



RPBYTE: 



LASTRPM: 
VacSwOpen: 



skiprs232: 



Id 

rcf 

rrc 

or 

call 

Id 

tm 

jr 
id 

cp 

jP 
cir 

dec 
Id 



jP 



TEST38: 

cp 

J> 

Id 

srp 

dec 

Id 

Id 

call 

call 

Id 

call 

call 

CLEARALL: 

call 
cIr 

MEMORYERROR: 
Id 

STARTOUT: 

inc 
dec 



SKIPRS232: 



CIr 
cIr 



Address,rsccount 
Address 

Address,rs232page 

ReadMemory 

rs232do,MTempH 

rsccount,#01 H 

z,RPBYTE 

rs232do,MTempL 

rsccount,#1 FH 

nz.STARTOUT 

rsccount 

rsstart 

rscommand,#OFFH 



SKIPRS232 



rscomnnand.#38H 

n2,SKIPRS232 

rs232do,#0FFH 

#LeamEeGroup 

SwitchSkip 

SkipRadio.#OFFH 

mtemph,#OFFH 

WRITEALL 

TESTALL 

mtemph,#OOOH 

WRITEALL 

TESTALL 

CLEARCODES 
RS232DO 

RSCommar>d,#OFFH 

rsccount 
RSStart 



SwitchSkip 
SkipRadio 



srp #LeamModeGroup 



SINGLE: 



cp 



mono,#MONOPER 



set the skip radio flag 

turn off the switch testing for port 

direction control 

find the address 



read the data 
; test which byte 

; test for the end 

; reset the counter 

; set the start flag 
; turn off command 
; return 



; test memory 

; flag set to error to start 

; skip testing the switches 
; set the skip radio flag 
; set the data to write 
; write ali the words 
; test all memory 
; set the data to write 
; write all memory 
; test for the data retension 

; reset the memory for code 
; flag all ok 

; turn off command 

; set to the next address 
; set the start flag 



; clear the skip switches flag 
; clear the skip radio flag 



; test for the period 



TESTCONS: 



TurnOffOutput: 



SIGDONE: 
TOGGLE: 



and 
Id 

di 
cp 

j'' 

and 
Id 



ult,TESTCONS 
P2,#11110111b 
mono,#OFFH 



rto,#RTOPERIOD 
ult,SiGDONE 

P2,#11101111b 
rto,#OFFH 



if not then test constant output 
clear the output 



; test for the timeout 
; clear the output 



JP 



MainLoop 



; loop forever 



WRITEALL: 



WRITELOOP1: 



TESTALL: 
READLOOP1 : 



Id 
Id 
cir 

WDT 
call 
inc 
cp 

jr 
ret 



cIr 

WDT 

call 

cp 

jP 
cp 

jp 

inc 
cp 

jr 
ret 



mtennpl,mtemph 
TestVal,mtemph 
address 



WRITEMEMORY 
address 
address,#40H 
n2,WRITELOOP1 



address 



ReadMemory 

mtemph.TestVal 

nz,MEMORYERROR 

mtemplJestVal 

nz.MEMORYERROR 

address 

address,#40H 

nz,READLOOP1 



start at address 00 



do the next address 
test for the last address 



; start at address 0 



; read the data 

; test the value 

; if error mark 

; test the value 

; ff error mark 

; set the next address 

; test for the last address 



Timer 0 Interrupt 



TimerZeroInt: 

cp 

dec 
iret 

ClearRadioTimeout: 
call 



]P 



TOExt,#Oa 

z,ClearRadloTimeout 
TOExt 



CfearCounter 



push RP 



ClearRadio 



; test for the roll 

; if at the roll time out 

; decrement the time extension 



; clear the counter 

; for the Clear radio code segment 

; dear the radio data 



A 



♦****♦♦***♦♦***♦**♦******♦*♦**♦*♦♦■**-*♦*♦ 



Radio interrupt from a edge of the radio signal 



RadioNegInt: 



RadioPosInt: 



and 



and 
Id 



iMR,#11 111 110b 

RTemp,#00000001B 

RadioEdge 

IMR.#111l0111b 

RTemp,#O0O00O0OB 

RadioEdge 



; turn off the inten-upt for 256uS 
; mark which edge 



; turn off the interrupt for 256uS 
; mark which edge 



RadioEdge: 



RIncDone: 
RTimeOk: 



RTimeDone: 



InActiveTime: 



GolnActive: 



CiearCounter: 



ActiveTime: 



Go Active: 



push 


RP 


srp 


#RadioGroup 


\Q 


nemph,TOExt 


id 


r1empl,T0 


tm 


IRQ,#0001 0000b 




2, RIncDone 


tm 


nempl,#1 0000000b 




z,RlncDone 


dec 


rtemph 


call 


CiearCounter 


com 


rtemph 


com 


rtempi 


cp 


rtemp,#0 


jr 


2,Activ€Time 


cp 


RlnFilter,#OFFH 


jr 


2,GoinActive 


jr 


RADIO_EXIT 


cir 


RinFilter 


id 


rtimeih, rtemph 


Id 


rtimeil,rtempl 


K 


RAD!0_EXIT 


Id 


TMR.#00001000b 


Id 


TMR,#00001001b 


Id 


TMR,#00001000b 


Id 


TMR,#00001010b 


Id 


TOExt,#OFFH 


and 


IRQ,#11100110b 


ret 




cp 


RlnFilter,#00H 



; save the reg pair 

; set the register pointer 

; read the upper byte 

; read the lower byte 

; test for a pending timer interrupt 

; done 

; test for the rollover 

; if not the rolled value skip inc 

; increase the timer msb 

; clear the counter 

; flip to find the period 



; test the port for the edge 

; if it was the active time then branch 

; test for active last time 
; if so continue 
; if not the retum 

set flag to inactive 

transfer the period to inactive 

return 

; turn off timer 0 
; load to 

i 

; restart the timer 
; reset the timer 
; turn off pending int 



2,GoActive 
RADIO EXIT 



; test for active last time 
; if so continue 
; if not the return 



GotBothEdges: 



SyncOk: 



Id RlnFiIler,#OFFH 

Id rtimeah,rtemph 

Id rtimeal,rtempl 

ei 

cp radioc,#0 

jr nzJNSiG 

inc radioc 

cp rtime!h,#30h 

jr ult. Clear Jump 

cp rlimeah,#OOh 

jr nz.SyncOk 

cp rtimGal,#80H 

jr ult, Clear Jump 

cp rtimeah,#9h 

jr uge,ClearJump 



transfer the period to active 



enable the interrupts 

test for the blank timing 

if not then in the middle of signal 

set ttie counter to the next number 

test for the min 24.5 mS 

if not then clear the radio 

test first the min sync 

first byte 00 if not great enough 

test for 256uS min 

if less then clear the radio 



; test for the max time 4.6mS 
; if not clear 



SETP5: 



P5MSFLAG: 



01 P5MSFLAG: 



DONESETP5: 
RADIO EXIT: 



ClearJump: 



INSIG: 



ISigOk: 



cp rtimeah,#02h 

jr uge,01P5MSFLAG 

or RFIag,#01 000000b 

cir radiopSh 

cir radiop51 

cIr COUNTP5H 

cir COUNTP5L 

jr DONESETP5 

and RRag,#101 11111b 

cir radiol p5h 

cir radiol p5l 

cir COUNT1P5H 

cir COUNT1P5L 



pop rp 
iret 



or P2,#1 0000000b 
jp GlearRadio 



cp rtim€ih,#0AH 

jr uge, Clear Jump 

op r1imeih,#00h 

jr nzJSigOk 

cp rtimeil,#080h 

jr ult,ClearJump 

cp rtimeah,#0AH 

jr uge,ClearJump 

cp rtimeah,#O0h 



; test for 1.5 vs .5 
; set the 1.5 flag 

set the 0.5ms memory flag 
clear the memory 

clear the memory 

do the2X 

set the 1 .5ms memory flag 
clear the memory 

clear the memory 



; done return 



; turn of the flag bit for dear radio 
; dear the radio signal 



; test for the max width 5.1 6 

; if too wide dear 

; test for the min width 

; if greater then 0 then signal ok 

; test for 256us min 

; if not then clear the radio 

; test for the max width 

; if too wide dear 

; if greater then 0 then signal ok 



ASigOk: 



POSDIFF2: 
NEGDIFF2: 

01 P5MS: 

01PMSC: 
01PMS: 

P5MSC: 

GOTB1P5: 



ADDB1P5: 



RC1P5INC: 



Radiol P5iNC: 



Radiol P5R: 



jr nz,ASigOk 

cp rlimeal.#080h 

jr ultClearJump 

sub rtimeal,RTimelL 

sbc rtimeah.rttmeih 

tm rtimeah,#1 0000000b 

jr n2,NEGDiFF2 

jr POSDIFF2 

cp rtimeah;#01H 

jr ultOlPMS 

jr 01P5MS 



com 


rtimeah 


cp 


rtimeah,#01H 


jr 


ult.OlPMSC 


jr 


P5MSC 


Id 


BITlP5.#2h 


jr 


GOTB1P5 


com 


rtimeah 


id 


BITlP5,#1h 


jr 


GOTB1P5 


com 


rtimeah 


Id 


BiTlP5,#0h 


cir 


rtimeah 


cir 


rtimeal 


cIr 


rtimeih 


Cir 


rtimeil 


ei 




tm 


RRag,#01 OOOC 


jr 


nz,RCP5INC 



SPECIAL BITS: 



tm radioc,#00000001 b 
jr 2,COUNT1P5INC 



cp radioc,#15D 

jr uge,SPECIAL_BITS 

Id pointerh,#Radio1 P5H 

id pointerl,#Radio1P5L 

jr AddAH 



; if too narrow clear 
; test for 256us min 
; if not then clear the radio 

; find the difference 

; find out if neg 

; use 1 for ABC or D 



; test for 1 .5/1 
; mark as a 1 



cp radioc,#15d 

jr n2,SKIP_ID__ZERO 

cir ID B 



; invert 
;test for 1/.5 
; mark as a ,5 



; set the value 
; invert 

; set the value 
; invert 

; set the value 
; clear the time 

; enable interrupts 
; test for radio p5/ 1 p5 



; test for even odd number 
; if odd number counter 

; else radio 

; test the radio counter for the specials 
; save the special bits seperate 

; get the pointer 



; test for the first special 
; if not then skip zeroing 
; else dear the id bits 



SKIP_ID_2ERO: 
cp 

jc 
Id 

add 
add 
add 

SWITCHID: 

Id 

; cp 

; 

clr 

RCP5INC: 

tm 
jr 

RadioPSiNC: 

Id 
Id 

COUNT1P5INC: 
Id 
Id 

COUNTP5INC: 

Id 
!d 
jr 

AddAII: 

Id 
Id 
Id 
Id 

add 

adc 

add 

adc 

add 

adc 

td 

Id 

ALLADDED: 

inc 

TWENTY?: 

and 
cp 

jP 
tm 



radioc,#19d 

z.swrrcHiD 

rtemph,ID__B 
ID_B,rtemph 
ID_B,rtemph 
ID_B3IT1P5 
Radiol P5R 

SW_B,BIT1P5 
ID_B,#03d 
ule,Radio1P5R 
BIT1P5 
Radiol P5R 



; test for the switch id 
; if so then branch 

; save the special bit 

;*3 

;*3 

; add in the new value 



save the switch ID 
test for the add in values 
add in if 3 < 
else dont add in 



radioc,#00000001b 
z,COUNTP5iNC 



pointerh,#RadioP5H 

pointerl,#RadioP5L 

AddAII 



; test for even odd number 
; if odd number counter 

; else radio 
; get the pointer 



pointerh,#COUNT1 P5H 

pointeri,#COUNT1P5L 

AddAII 



; get the pointer 



pointerh.#COUNTP5H 

pointeri,#COUNTP5L 

AddAII 



; get the pointers 



rtemph,@pointerh 
rtempI,@pointerl 
addvalueh,@pointerh 
addvaluel,@pofnterl 

addvaluel.rtempl 
addvalueh, rtemph 
addvaluet,rtempl 
addvalueh,rtemph 
addvaluel,BiT1 P5 
addvalueh,#OOh 
@poinierh,addvatueh 
@pointerf,addvaiuel 

radioc 

RRag.#11011111B 
radioc,#21D 
nz,RRETURN 
RRag,#00010000B 



get the value 
get the value 

add x2 
add x3 

add in new number 
save the value 

increase the counter 

clear the bit for 1 0 bits 
test for 20 
if not then return 
test flag 20 bit code 



1 



GOT20CODE: 





nz,KNOWCODE 


; if the second 20 bits received 


or 


RFiag,#00010000B 


; set the flag 


cir 


radioc 


; clear the radio counter 


jP 


RRETURN 


; return 


cp 


ID_B,#07d 


; test for the don't use ones 


jP 


uge,GlearRadio 


; clear don't use 


cp 


ID B,#04d 


; test for the don't add in ones 




uge,KNOWCODE 


; if so then don't add in 


add 


COUNT1P5L,SW B 


; add in switch id 


adc 


COUNTlP5H,#00h 





KNOWCODE: 



Translate the counter back to normal 
start 

CounterA CounterB CounterC CounterD 

00 00 CountlPSH CountlP5L 

MirrorA MirrorB MirrorC MirrorD 

00 00 CountPSH CountPSL 



srp #CounterGroup 

cir countera 

cIr counterb 

Id counterc,COUNT1 P5H 

Id counterd^COUNTI P5L 

cir mirrora 

cir mirrorb 

Id mirrorc,COUNTP5H 

Id mirrord. COUNTPSL 

call AddMirrorToCounter 

Id Ioopcount,#3 

call RotateMirrorAdd 

Id loopcount,#2 

call RotateMirrorAdd 

id loopcount,#2 

call RotateMirrorAdd 

Id loopcount,#2 

call RotateMirrorAdd 

id loopcount,#1 

call RotateMin-orAdd 

Id loopcount,#3 

call RotateMirrorAdd 

Id loopcount,#1 

call RotateMirrorAdd 

Id loopcount,#1 

call RotateMirrorAdd 



set the group 

clear the counter Msb value 

Set the value to countlpS 

Set the mirror (temp reg for now) 
to countpS 

find countpS * S'^IO + count1p5 



MirrorTheCounter: 
call 

CounterCorrected: 
cp 

jP 
cp 



MirrorCounter 

SkipRadio.#OFFH 

z.ClearRadio 

LearnTimer,#OFFH 



; mirror the counter 

; test for the skip radio flag 
; if active do not test the cpde 
; test for in learn mode 



jp 

STORECODE: 
DCODESTORE: 
cp 

jr 
cp 

jr 
cp 

cp 

jr 
cp 

jr 
cp 

cp 

jr 

cp 

jr 

MatchedForStore: 
srp 
call 
cp 

jr 

id 

call 

add 

cp 

jr 
cir 

GOTDADDRESS: 
Id 
Id 
call 
Id 
call 
jr 



zJESTCODE 



PRadioA,radio1p5h 

nz,PP_NOT_M_D 

PRadioB,radiolp5l 

nz,PP_NOT_M_D 

PRadioC,radiop5h 

n2,PP_NOT_M_D 

PRadioD,radiop5l 

n2,PP_NOT_M_D 

PRadioE, Mirror A 

nz,PP_NOT_M_D 

PRadioF.MirrorB 

n2,PP_NOT_M_D 

PRadicG.MirrorC 

n2,PP_NOT_M_D 

PRadloH,MirrorD 

n2,PP_N0T_M_D 

#LearnEeGroup 

TESTMATCH 

address,#OFFH 

nz.WRiTEAGAIN 

address»#1 FH 

ReadMemory 

mtemph,#4d 

mtemph,#1CH 

ultGOTDADDRESS 

mtemph 

mtempf.mtemph 

address,#1FH 

WRiTEMEMORY 

address,mtemph 

WRITE_D_CODE 

NOWRITESTORE 



if not in learn the test the code 



test all 8 memorys for 
if no match skip 
test all 8 memorys for 
if no match skip 
test all 8 memorys for 
if no match skip 
test all 8 memorys for 
if no match skip 
test all 8 memorys for 
if no match skip 
test aii 8 memorys for 
if no match skip 
test all 8 memorys for 
if no match skip 
test all 8 memorys for 
if no match skip 



a match 
a match 
a match 
a match 
a match 
a match 
a match 
a match 



test for a matching code 

test for a match 

if so store AGAIN for counter 

set the address 

read the value 

find the next address 

test for out of range 



store the new address 

set ttie code address to write 
output the D code 
reset the learn mode 



WRITEAGAIN: 

call 

NOWRITESTORE: 
or 
Id 
cIr 
jr 



WRITE D CODE 



P2,#00000010B 
LeamTimer,#OFFH 
RacfioTimeOut 
ClearRadio 



; output the D code 



; turn off the LED for flashing 
; turn off the team mode 
; disable command from learn 
; set for the next code 



PP„NOT_M_D: 

Id PRadioA,radio1 p5h 

Id PRadioB.radiolpSI 

Id PRadioC,radiop5h 

Id PRadioD,radiop5I 

id PRadioE,MirrorA 

Id PRadioF.MirrorB 



; save the present into the past 
; save the present into the past 
; save the present into the past 
; save the present into the past 
; transfer the value 



I 

4 



Id PRadioG,MirrorC 
Id PRadioH,MirrorD 



; reset radio 



*************************♦*♦***♦***♦*♦*******♦******♦*♦♦♦***♦♦♦***♦***♦* 
Clear interrupt 



ClearRadio: 

SKIPiRTO: 
RRETURN: 



; test for receiving without error 
; if flag not set then donot clear timer 
; clear radio timer 

; clear the radio counter 
; clear the radio flags 

; reset the RP 
; return 

rotate mirror LoopCount * 2 then add 



tm 


RFIag,#00000001B 


jr 


z.SKIPiRTO 


cir 


RadioTimeOut 


cir 


RadioC 


cIr 


RFlag 


pop 


RP 


iret 





RotateMirrorAdd: 



rcf 




rfc 


mirrord 


ric 


mirrorc 


ric 


mirrorb 


rIc 


mirrora 


djnz 


loopcount, RotateMirrorAdd 



clear the carry 



loop till done 



Add mirror to counter 



AddMirrorToCounter: 
add 
adc 
adc 
adc 
ret 



counterd,mirrord 
countercmirrorc 
counterb.mirrorb 
countera, mirrora 



Add mirror to counter 
MinrorCounter: 
MirrorLoop: 



id 


loopcount,#32d 


rrc 


countera 


n-c 


counterb 


rrc 


counterc 


n^c 


counterd 


ric 


mirrord 


ric 


mirrorc 


ric 


mirrorb 


ric 


mirrora 


djnz 


ioopcount, MirrorLoop 


ret 



; set the number of bits 
move the bits 



loop for ail the bits 



A -31 



; Test the radio code for matching 
TESTCODE: 



NewCode: 



and 

srp 

call 

or 

cp 

jP 

D_CODE_MATCH: 
cp 

jr 
cp 

jr 
cir 

JP 

srp 
call 
cp 
jP 
cp 
jr 
cp 
jr 
cp 
jr 
Id 
Id 
Id 
Id 

sub 
sbc 
sbc 
sbc 
cp 
jr 

cp 
jr 
cp 
jr 
cp 
jr 
cp 
jr 



GOT D CMD: 



P2,#11111101B 

#LeamEeGroup 

TESTMATCH 

P2,#00000010B 

Address,#OFFH 

z.TEST TC SEC 



RadioTimeOut,#0FFH 

z, NewCode 

LastMl Match, Address 

nz.NewCode 

RadioTimeOut 

ClearRadio 

#CheckGroup 

TESTCOUNTER 

CMP, #00 

z, ClearRadio 

CMP,#OAAH 

z,GOT_D_CMD 

CMP,#07FH 

z,UPDATE_PAST 

PAST_MATCH,Address 

nz,UPDATE_PAST 

pradioa,MirrorA 

pradiob.MirrorB 

pradioc.MirrorC 

pradiod,MirrorD 

pradiod.pradioh 

pradiocpradiog 

pradiob,pradiof 

pradioa,pradioe 

pradioa,#00 

n2,UPDATE_PAST 

pradiob,#00 

nz,UPDATE_PAST 

pradloc,#00 

n2,UPDATE_PAST 

pracfiod,#00 

z,UPDATE_PAST 

pradiod,#04d 

ugt,UPDATE_PAST 



; turn on the LED for flashing 

; test the code for a match 

; turn off the LED for flashing 

; test for no match 

; if no match try touchcode and sec 



; test for the timeout 

; If tinrier inactive then look for a new 

; test for the sanrie address as the past 

; if not then test for a new code 

; reclear the timer 

; and update the past 

; set the rp 

; test the counter for in range 

; test for a matching value 

; if the same then clear the radio 

; test for counter in range 

; got a command save radio counter 

; test for outside of - window 

; if so skip resync 

; test for the same address as the past 
; if not then update the past value 
; transfer the value 



call STORE_D COUNTER 



D_RADIO_COMMAND 

cp SysDisable,#32d 
jr ult,TEST_TC_SEC 



; find the difference 

; test for tess then 4 away 

; if not then update the past 

; if not then update the past 

rf not then update the past 
test for the zero case 



; if not then update the past 
; save the new counter value 



; test for 4 seconds 
; if not test tc and sec 



cp RadioTimeOut.#RTOPERIOD ; test for first reception 



N0TP3A: 

NOTP3: 

NOTP3S: 





ult,NOTP3A 


; if second reception skip t and mono 


cir 


Mono 


; clear the monostable 


or 


P2,#00011000B 


; turn on the constant 


xor 


P2,#01000000B 


; toggle the T ou^ut 


clr 


RadioTimeOut 


; clear the timer 



TEST TC SEC 



; test tc and sec 



NOTNEWMATCH: 
Id 
iP 

UPDATE_PAST: 
Id 
Id 
Id 
Id 
Id 
jP 



LeannTimer.#OFFH 
ClearRadio 



PAST_MATCH,Address 

pradioe,MirrorA 

pradiof,MirrorB 

pradiog,MirrorC 

pradioh.MirrorD 

ClearRadio 



; set the iearn timer "turn off" 
; clear the radio 



; save the past address 
; transfer the value 



; reset the radio 



♦•A-************************************************************************************************ 

We know the code does not match but if it was our touch code 
or security transmitter update the counter 



TEST TC SEC: 



TC_SEC: 
NEXT D: 



srp 
cp 

)f 
cp 

F 
jP 

Id 
call 



cp 

cp 
K 

dec 

MatchedCheckCounter: 
call 
cp 
J*' 

TC_SEC_Store: 

call 

SkipStoreCounter: 
inc 

NO_TC_MATCH: 
add 
cp 



#LeamEeGroup 

ID_B,#1d 

zJC_SEC 

iD_B,#2d 

z,TC_SEC 

ClearRadio 

address,#01d 

ReadMemory 
mtemph,Radio1 P5H 
n2.NOjrC_MATCH 
mtempi,Radlo1 P5L 
n2.NO„TC_MATCH 
address 

TESTCOUNTER 

CMP.#OAAH 

nz,SkipStoreCounter 

STORE_D„COUNTER 

address 

address,#4d 
address,#1CH 



; test for the touch code 
; jump if so 

; test for the security transmitter 
; jump if so 



; set the start addresss for the fixed 

; read the word at this address 

; test for the match 

; if not matching do the next address 

; test for the match 

; if not matching do the next address 

; reset the address 

; test the counter for in range 

; test for within range 

; if not kip storing the counter 

; save the new counter 



; set the address to the next code 
; test for the last address 



jr ult,NEXT_D ; it not the last address then try again 



GOTNO_TC_MATCH: 

jp ClearRadio 



****************************************************** 



Test the radio code counter and compares 
CMP 

00 => counter the same 

FF => counter out of range 

AA => counter in range 

7F => counter within - window no resync 

Address for test in address 



TESTCOUNTER: 



CounterRet: 



NM COUNTER 



ni tQh 


RP 






II ic 


/\uur@ss 


II fKf 


Moaress 




ncao ivi ©m ory 


•u 


praufua,ivi 1 emprt 


Id 


pradiob,MTempL 


inc 


Address 


caii 




sub 


AHHra<%Q i^H 


Id 


piauioOfivi 1 empn 


Id 




CD 


MIrrorA oradloa 


jr 


n2,NM_COUNTER 


cp 


MirrorB,pradiob 


jr 


nz.NM„COUNTER 


cp 


MirrorCpradioc 


jr 


nz,NM_COUNTER 


cp 


MirrorD.pradiod 


jr 


nz.NM COUNTER 


Id 


CMP,#00h 


pop 


RP 


ret 

1: 




cp 


pradloa,#OFFH 


jr 


nz,NORMALN 


cp 


pradiob.#OFFH 


jr 


nz^NORMALN 


cp 


MirrorA.#OH 


jr 


nz,NORMALN 


cp 


MirrorB,#OH 


jr 


nz.NORMALN 


call 


Complement 


add 


pradiod,MirrorD 


adc 


pradioc,MirrorC 


adc 


pradiob,Min'orB 


adc 


pradioa,MirrorA 



save the RP 
set the rp 

set the address to the 2x position for 

read the value 
temp storage 

read the value 
reset the address 
temp storage 

test first for the match 

if not then test count position 

if not then test count position 

if not then test count position 

if not then test count position 
flag the match 



test for the roll over 
if not test nomially 
test for the roll over 
if not test normally 
test for the rollover 
If not test normally 
test for the rollover 
if not test normally 
at roll com past add pres 

add the 2 



A 



"4-0 



COUNTOUT: 



cp pradioc,#12d 

jr ule,COUNTOK 

call Complement 

cp pradioa,#00 

jr nz^OutOfWindow 

cp pradiob,#00 

jr nz.OutOWindow 

cp pradioc.#00000100B 

jr ugt,OutOfWindow 

Id CMP,#7FH 

jr CounterRet 



; window 3072 or 1024 activations 



find the - difference 
test for within 00000400H 



mark the -window function 
return 



OutOfWindow: 



COUNTOK: 



NORMALN: 



Complement: 



Id CMP,#OFFH 

jr CounterRet 

Id CMP,#OAAH 

jr CounterRet 

sub pradiod^MirrorD 

sbc pradiocMirrorC 

sbc pradiob,MinrorB 

sbc pradioa,Min^orA 

call Complement 

cp pradioa.#00 

jr nz,COUNTOUT 

cp pradiob,#00 

jr nz.COUNTOUT 

cp pradioc,#11D 

jr ule,COUNTOK 

jr COUNTOUT 



com pradiod 

com pradioc 

com pradiob 

com pradioa 
ret 



; set the bad count flag 
; return 

; set the count flag ok 
; return 

; subtrace to find difference 



; make positive 
; test for to large 
; if so out of window 
; test for to large 
; if so out of window 
; window for 1024 



Complement the temp reg 



TESTMATCH TEST THE NON ROLLING PART OF ANY CODE IF THERE 
IS A MATCH RETURNS THE ADDRESS ELSE RETURNS FF 



TESTMATCH: 

TEST_D_CODES: 
cir 

NEXT_D_CODE: 
call 
cp 
jr 
cp 



address 

ReadMemory 
mtemph,RadioP5H 
nz,NO_D_MATCH 
mtempI,RadioP5L 
nz.NO_D MATCH 



; start at address 0 

; read the word at this address 
; test for the match 

; if not matching then do next address 
; test for the match 

; if not matching then do next address 



A-- 4- 1 



inc 

call 

cp 

jr 

cp 

jr 

dec 
jr 

NO_D_MATCH; 

inc 

NO_D_MATCH2: 

add 
cp 

jr 

GOTNO„D_MATCH: 
Id 
ret 

TMEXIT: 

Id 
Id 
ret 



address 

ReadMemory 

mtemph,Radio1P5H 

n2,NO_D_MATCH2 

mtempi, Radiol P5L 

nz,NO_D_MATCH2 

address 

TMEXIT 



address 

address,#3d 
address,#1 CH 
ultNEXT_D_CODE 



address,#OFFH 



LastMl Match,LastMatch 
LastMatch.address 



; set the second half of the code 

; read the word at this address 

; test for the match 

; if not matching do the next address 

; test for the match 

; if not matching do the next address 

; reset the address 

; return with the address of the match 



; set the address to the next code 

; set the address to the next code 

; test for the last address 

; if not the last address then try again 



; set the no match flag 



; delay line 

; save the address for radio timeout 



LEARN DEBOUNCES THE LEARN SWITCH 80mS 

TIMES OUT THE LEARN MODE 30 SECONDS 

DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 

LEARN: 



ReleaseDone: 



multi2: 



SW2isSET: 



srp #LearnModeGroup 

cp cmdswjtch,#236D 

jr nz^ReleaseDone 

cir cmdswitch 

cp cmdswitch,#20D 

jr UGT.CLEARRA 

cp cnrKJswitch ,#20D 

jr nzJESTLEARN 



; set the group 

; test for the debouncer release 
; if not then test for set 
; clear the debouncer 

; test for switch 2 set 



; test for switch 2 set 
; if not then test learn 



CMDSW: 



CLEARRA: 



Id cmdswitch,#OFFH 

cIr mono 

xor P2,#01000000B 

or P2,#00011000B 

dr rto 



; set the debouncer 

; clear the timer 
; toggle 
;set 



TESTLEARN: 



cp learndb,#236D 

jr n2,LEARNNOTRELEASED 



; test for the debounced release 
; if not released then jump 



c!r learndb 



; clear the debouncer 



ret 



; return 



LEARNNOTRELEASED: 



SETLEARN: 



ERASETEST: 



cp 
j*- 

c!r 
id 

and 

cp 

jr 
cp 

J> 
cir 

cp 

jr 
ret 

or 

Id 

call 

cIr 



Id 
ret 

ERASERELEASE: 
Id 
ret 



ERASETIMING: 



ERASETIME: 



INLEARN: 



cp 
Id 



TESTLEARNTIMER: 
cp 



learnoff: 



or 
Id 
Id 



learnt,#OFFH 
nz,INLEARN 
learndb,#20D 
nz^ERASETEST 

learnt 

leamdb,#OFFH 
P2,#11111101b 

leamdb,#OFFH 

nz,ERASERELEASE 

eraset,#OFFH 

nz,ERASETIMlNG 

eraset 

eraset,#48D 
z,ERASETIME 



P2.#00000010b 
skipradio,#OFFH 
CLEARCODES 
skipradto 

learnt,#OFFH 



eraset,#OFFH 



leamdb,#20D 

nzJESTLEARNTIMER 

leamdb,#OFFH 

leamt.#240D 
n2.ERASETEST 

P2,#00000010B 
leamt,#OFFH 
leamdb,#OFFH 
ERASETEST 



; test for iearn mode 

; if in learn jump 

; test for debounce period 

; if not then test the erase period 

; clear the learn timer 
; set the debouncer 
; turn on the led 

; test for learn button active 

; if button released set the erase timer 

; test for timer active 

; if the timer active jump 

; clear the erase timer 

; test for the erase period 
; if timed out the erase 
; else we return 

; turn off the led 

; set the flag to skip the radio read 
; clear all codes in memory 
; reset the flag to skip radio 

; set the ieam timer 
; return 

; turn off the erase timer 
; return 



; test for the debounce period 
; if not then test the Ieam timer 
; set the Ieam db 

; test for the Ieam 30 second timeout 
; if not then test erase 

; turn off the led 
; set the learn timer 
; set the Ieam debounce 
; test the erase timer 



WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 



A -41 



i 



WRITEMEMORY: 



push 


RP ; SAVE THE RP 


srp 


#LearnEeGroup ; set the register pointer 


cai) 


STARTS 


outDLii the start bit 


Id 


serial #001 1 0OOOB 




call 


SERIALOUT 


outDut the bvte 


and 


csDort #csl 


reset the ehio ^eief^t 


call 


STARTS 


niitniit tho Qtiirt hit 


td 




sei ine Dyi© lor wnie 


or 


seriai.address 


or in the address 


call 


SERIALOUT 


output the byte 


Id 


serial, mtemph 


set the first byte to write 


call 


SERIALOUT 


output the byte 


Id 


seriai,mtempl 


set the second byte to write 


call 


SERIALOUT 


output the byte 


call 


ENDWRITE 


wait for the ready status 


call 


STARTS 


output the start bit 


Id 


serial.#OO0O0OO0B 


set byte to disable write 


call 


SERIALOUT 


output the byte 


and 


csport,#csi 


reset the chip select 


pop 


RP 


reset the RP 


ret 







READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 



ReadMemory: 



push 


RP 




srp 


#Learr)EeGroup 


; set the register pointer 


call 


STARTS 


; output the start bit 


Id 


serial.#ioooooooB 


; preamble for read 


or 


seriai.address 


; or in the address 


call 


SERIALOUT 


; output the byte 


call 


SERIALIN 


; read the first byte 


Id 


mtemph.serial 


; save the value in nntemph 


call 


SERIALIN 


; read teh second byte 


Id 


mtempl.serial 


; save the value in mtempi 


and 


csport,#csl 


; reset the chip select 


pop 


RP 


ret 







WR ITE D CODE TO 4 MEMORY ADDRESS 

CODE IS IN Radiol P5H Radiol P5L RadioPSH RadioPSL 

CODE IS IN Count1P5H Count1P5L CountPSH CountPSL 

WRITE_D_CODE: 

push RP 

srp #LearnEeGroup 

Id mtemph, RadioPSH 



set the register pointer 
transfer the data 



Id 

call 

inc 

Id 

Id 

call 

inc 

STORE_COUNTER: 
Id 
Id 

call 

inc 

Id 

id 

call 

dec 

dec 

dec 

pop 

ret 



mtempi,RadioP5L 
WRITEMEMORY 
address 

mtemph,Radio1P5H 
mtempl,Radio1P5L 
WRITEMEMORY 
address 

mtennph,MirrorA 
mtempl^MlrrorB 
WRITEMEMORY 
address 

mtemph^MirrorC 

mtempl,MirrorD 

WRITEMEMORY 

address 

address 

address 

RP 



STORE_D_C0UNTER: 

push RP 

srp #LeamEeGroup 

inc address 

inc address 

jr STORE^COUNTER 



write the temp bits 
next address 
transfer the data 

write the temps 
next address 

transfer the data 

write the temps 
next address 
transfer the data 

write the temps 
reset the address 



return 



set the register pointer 



,***************■* 



******* ifk*******-^* 
START BIT FOR SERIAL NONVOL 
ALSO SETS DATA DIRECTION AND AND CS 

.******************************1t***it******^i,i^^i^^^^^^^^^^^^^^^^ 

STARTS: 



************* 



Id 


P2M,#P2M_IN[T 


and 


csport,#csl 


and 


clkport,#clockl 


and 


dioport.#dol 


or 


csport.#csh 


or 


dioport,#doh 


or 


clkport,#dockh 


and 


clkport,^ocki 


and 


dtoport,#dol 


ret 





END OF CODE WRITE 



ENDWRITE: 

Id 

and 
nop 
or 

WDT 
ENDWRITELOOP: 
Id 



P2M,#(P2MJNnr+l) 
csport.#csl 

cspoft,#csh 



temph,dioporl 



; set port 2 mode 

; start by clearing the bits 

; set the chip select 
; set the data out high 
; set the clock 
; reset the dock low 
; set the data low 
; return 



; set port 2 mode 
; reset the chip select 
; delay 

; set the chip select 
; kick the dog 

; read the port 



A' as- 



and teniph,#doh ; mask 

jr z.ENDWRlTELOOP ; if the bit is low then loop 

and csport,#cs! ; reset the chip select 

Id P2M,#P2M_INIT ; set port 2 mode forcing output mode 



ret 



•♦******************♦***♦***♦♦♦**♦**♦******♦***♦***********♦*♦*♦*♦**#«*♦♦ 
•SERIAL OUT 

; OUTPUT THE BYTE IN SERIAL 



SERIALOUT: 

Id 
Id 

SERIALOUTLOOP: 
ric 



ONEOUT: 



ZEROOUT: 



or 

or 

and 

and 

djnz 

ret 

and 

or 

and 

and 

djnz 

ret 



P2M,#P2M_INIT 
templ.#8H 

serial 

ncZEROOUT 

dioport,#doh 
cikport,#clockh 
clkportjclockl 
dioport.#dol 

templ.SERIALOUTLOOP 



dioport,#dol 
clkport,#clockh 
clkport,#clockl 
dioport,#dol 

templ,SERIALOUTLOOP 



; set port 2 mode 

; set the count for eight bits 

; get the bit to output into the carry 
; output a zero if no carry 

; set the data out high 
; set the clock high 
; reset the clock low 
; reset the data out low 

; loop till done 
; retum 

; reset the data out low 
; set the clock high 
; reset the clock low 
; reset the data out low 

; loop till done 
; retum 



SERIAL IN 

INPUTS A BYTE TO SERIAL 
SERIALIN: 



SERIALINLOOP: 



Id P2M,#{P2MJNrr+1) 
Id templ,#8H 

clkport,#clockh 

temph.diopofi 
temph,#doh 
z.DONTSET 



[X)NTSET: 



or 
rcf 
Id 

and 

jr 

scf 

rIc 
and 

djnz tempi. SERIALINLOOP 



ret 



serial 
c*kport,#clockl 



******** 



; set port 2 mode 

; set the count for eight bits 

; set the ck>ck high 
; reset the carry flag 
; read the port 
; mask out the bits 

; set the carry flag 

; get the bit into the byte 
; reset the dock low 

; loop till done 
; retum 



CLEAR PAGE 0 CODES IN THE MEMORY 
■**♦***♦*♦**************♦♦*♦*■**♦*♦**+*******♦****♦**♦***♦♦■♦****♦*♦♦**#♦♦♦ 

CLEARCODES: 



Clear Loop: 



push RP 
di 

Id SkipRadio,#OFFH 

srp #LeamEeGroup 

Id Radiol P5H,#0FFH 

Id Radiol P5L,#0FFH 

Id RadioP5H,#0FFH 

id RadioP5L,#0FFH 

clr address 

Id cmp,#07d 

call WRITE_D_CODE 

add address,#4d 

djnz cmp,ClearLoop 

clr mtemph 

cir mtempi 

Id address,#1FH 

call WRITEMEMORY 

pop RP 

ret 



disable interrupts 

set the register pointer 

set the codes to illegal codes 



set the page 
erase 7 values 

clear this address 
next clear address 

dear data 
set the address 

return 



TIMER UPDATE FROM INTERUPT EVERY .256mS 



TimerOneInt: 



SkipRsRoutine: 

TASKO: 

TASK1: 
ONEMS: 



FOURMS: 



RTOOK: 



Inc TaskSwitch 

Id IMR,#RETURNJMR 

tm TaskSwitch,#00000001 b 

jr n2,SkipRsRoutine 

call RS232 

tm TaskSwrtch,#000€)001 1 B 

jr 2,TASK1 

iret 



push RP 



srp 

inc 

inc 

cp 

jP 

clr 
cp 

jr 

inc 

el 



#LeamModeGroup 

T4MS 

T125MS 

T4MS,#4D 

nzJEST125 

T4MS 
rto.#OFFh 
z^RTOOK 
rto 



; set to the next switch 
; turn on the interrupt 
; even odd 
; do rs232 .5 mS 
; do the serial 

; test for task 0,1,2 or 3 
; task 1 every 1 mS 



; set the register pointer 
; increment the 4mS timer 
; increment the 125 mS timer 
; test for the time out 
; if not true then jump 

; reset the timer 

; test for the end of the rto 

; if the radio timeout ok then skip 

; increment the rio 

; enable the interrupts 



inc 
dec 

MONOOK: 

cp 
jr 

TESTSW1: 

tm 
cp 
dec 

SW1SET: 

inc 

TESTSW2: 

tm 

cp 
jr 

dec 
jr 

SW2SET: 

cp 
inc 

TESTSWDB: 



TEST125: 

pop 
iret 

ONE25MS: 
TOG: 

ei 

cir 

cp 

jr 

inc 

D012: 

cp 

J> 

inc 

LEARNTOK: 

cp 
jr 

inc 

ERASET10K: 

pop 



mono 

nz,MONOOK 
mono 

SwitchSkip,#00 
nz,TESTl25 



P2,#00100000B 

2,SW1SET 

LearnDebounce,#OOH 

2,TESTSW2 

LeamDebounce 

TESTSW2 

LearnDetx)unce,#OFFH 

2,TESTSW2 

LeamDebounce 



P2,#00000100B 

2.SW2SET 

CmdSwitch,#OOH 

zTESTSWDB 

CmdSwitch 

TESTSWDB 

CmdSwitch,#OFFH 

2,TESTSWDB 

CmdSwitch 



T125MS,#125D 

2,ONE25MS 

RP 



T125MS 

SysDisable,#OFFH 

2,D012 

SysDisable 

leamt.#OFFH 

z.LEARNTOK 

learnt 

eraset,#OFFH 

z,ERASET10K 

eraset 

RP 



increment the mono time out 
if the mono timeout ok then skip 
back turn 

test for the skip switches command 



; test switch one 
; if set jump 
; test for min number 
; if at min skip dec 
; dec debouncer down 
; next 

; test for the max number 
; if at max skip inc 
; inc the debouncer 



; test switch two 
; if set jump 
; test for min number 
; if at min skip dec 
; dec debouncer down 
; next 

; test for the max number 
; if at max skip inc 
; inc the debouncer 



; test for the time out 
; if true the jump 



; enable the interrupts 
; reset the timer 
; test for the top 

; count off the system disable timer 

; test for overflow 
; at roll over skip 
; increase the team timer 

; test for overflow 

; if at roll skip 

; increase the erase timer 



iret 



RS232 DATA ROUTINES 



enter rs232 start with word to output in rs232do 



RS2320START: 



push rp 

srp #TimerGroup 

cir RSStart 

Id rs232odelay,#6d 

cIr rs232docount 

and RS2320P,#RS2320C 

jr NORSOUT 



; save the rp 

; set the group pointer 

; one shot 

; set the time delay to 3. mS 
; start with the counter at 0 
; clear the output 



RS232: 



RS232R: 



RS232SET: 
SETTIME: 



NORSOUT: 
RS2321NPUT: 



RECEIVING: 





RSStart,#OFFH 


; test for the start flag 




2,RS2320START 


push 


n:> 


; save the rp 


srp 


#TimerGroup 


; set the group pointer 


cp 


rs232docount,#1 1 d 


; test for last 


jr 


n2,RS232R 




or 


RS2320P,#RS2320S 


; set the output idle 


JR 


NORSOUT 


djnz 


rs232odelay, NORSOUT 


: cycle count time delay 


inc 


rs232docount 


; set the count for the next cycle 


scf 




; set the carry flag for stop bits 


rrc 


rs232do 


; get the data into the carry 


jr 


c,RS232SET 


; if the bit is high then set 


and 


RS2320P,#RS2320C 


; clear the output 


jr 


SETTIME 


; find the delay time 


or 


RS2320P,#RS2320S 


; set the output 


Id 


rs232odelay,#6d 


; set the data output delay 


tm 


rs232docount,#00000001 b 


; test for odd words 


jr 


2,NORSOUT 


; if even done 


id 


fs232odelay.#7d 


; set the delay to 7 for odd 






; this gives 6,5 *.512mS 



cp rs232dtcount,#0FFH 

jr n2.RECEIV!NG 

tm RS232IP.#RS232IM 

jr n2,NORSIN 

c!r rs232dicount 

Id rs232idelay,#3 

djnz rs232idelay,NORSIN 



;test mode 

; if receiving then jump 

; test the incoming data 

; if the line is still idle then skip 

; start at 0 

i set the delay to mid 
; skip till delay is up 



A- so 



SKIPSETTING: 



DIEVEN: 



NORSIN: 



inc 


rs232dicount 


; bit counter 


cp 


rs232dicount,#10d 


; test for last timeout 


jr 


z,UltvbN 




tm 


RS232IP,#RS232IM 


; test the incoming data 


rcf 






jr 


2.SKIPSETTING 


; if input bit not set skip setting carry 


set 




; set the carry 


rrc 


rs232di 


; save the data into the memory 


Id 


rs232idelay.#6d 


; set the delay 


tm 


rs232dicount,#00000001 b 


; test for odd 


ir 


z.NORSIN 


* if fi\/on clfirt 
, II t7Vt?li dlvip 


Id 


rs232idelay.#7 


; set the delay 


jr 


NORSIN 


id 


rs232dicount,#0FFH 


; tum off frie input till next start 


Id 


rscommand, rs232di 


; save the value 


cir 


RSCount 


; clear the counter 


pop 


n> 


; retum the rp 


ret 
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